File Coverage

blib/lib/Array/Stream/Transactional/Matcher/Logical.pm

Criterion	Covered	Total	%
statement	61	65	93.8
branch	14	20	70.0
condition	1	3	33.3
subroutine	6	7	85.7
pod	1	2	50.0
total	83	97	85.5

# $Id: Logical.pm,v 1.13 2004/06/11 21:50:53 claes Exp $

use strict;

our $VERSION = "1.00";

package Array::Stream::Transactional::Matcher::Logical;
our @ISA = qw(Array::Stream::Transactional::Matcher::Rule);

sub new {
  my ($class, @args) = @_;
  $class = ref $class || $class;
  bless [@args], $class;
}

sub match {
  1;
}

package Array::Stream::Transactional::Matcher::Logical::and;
our @ISA = qw(Array::Stream::Transactional::Matcher::Logical);

sub match {
  my ($self, $stream, @passthru) = @_;

  $stream->commit;
  my $match = 0;
  my $start_pos = $stream->pos;
  my $end_pos = $start_pos;
  if(@$self) {
  RULES: foreach my $rule (@$self) {
      $match = $rule->match($stream, @passthru);
      unless($match) {
	$stream->rollback;
	return 0;
      }

      if($stream->pos > $end_pos) {
	$end_pos = $stream->pos;
      }
    }
  }

  $stream->rollback;
  my $move = $end_pos - $start_pos;
  $stream->next while($move--);
  return $match;
}

package Array::Stream::Transactional::Matcher::Logical::or;
our @ISA = qw(Array::Stream::Transactional::Matcher::Logical);

sub match {
  my ($self, $stream, @passthru) = @_;

  $stream->commit;

  if(@$self) {
    my $match = 0;
  RULES: foreach my $rule (@$self) {
      $match = $rule->match($stream, @passthru);
      if($match) {
	$stream->regret;
	return $match;
      }

    }
  }

  $stream->rollback;
  return 0;
}

package Array::Stream::Transactional::Matcher::Logical::xor;
our @ISA = qw(Array::Stream::Transactional::Matcher::Logical);

sub match {
  my ($self, $stream, @passthru) = @_;

  $stream->commit;

  my $match = 1;
  if (@$self) {
    my @rules = @$self;
    $match = $rules[0]->match($stream);
    @rules = @rules[1..$#rules];
  RULES: foreach my $rule (@rules) {
      my $next = $rule->match($stream, @passthru);
      unless(abs($match) ^ abs($next)) {
	$stream->rollback;
	return 0;
      }
      $stream->commit;
      $match ^= abs($next);
    }
  }

  unless($match) {
    $stream->rollback;
    return 0;
  }

  $stream->regret;
  return $match;
}

package Array::Stream::Transactional::Matcher::Logical::not;
our @ISA = qw(Array::Stream::Transactional::Matcher::Logical);

sub match {
  my ($self, $stream, @passthru) = @_;

  $stream->commit;

  my $match = 1;
  if(@$self) {
  RULES: foreach my $rule (@$self) {
      $match = $rule->match($stream, @passthru);
      if($match) {
	$stream->rollback;
	return 0;
      }
    }
  }

  $stream->regret;
  return 1;
}

1;
__END__