File Coverage

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

Criterion	Covered	Total	%
statement	35	36	97.2
branch	8	14	57.1
condition	7	21	33.3
subroutine	9	10	90.0
pod	1	2	50.0
total	60	83	72.2

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

use strict;

our $VERSION = "1.00";
my $number = qr/^-?\d+(?:\.\d+)$/;

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

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

sub match { 1; }

package Array::Stream::Transactional::Matcher::Value::eq;
our @ISA = qw(Array::Stream::Transactional::Matcher::Value);

sub match {
  my ($self, $stream) = @_;
  my $compare = $stream->current;
  return $compare == $self->[0] if($compare =~ $number && $self->[1]);
  return $compare eq $self->[0];
}

package Array::Stream::Transactional::Matcher::Value::ne;
our @ISA = qw(Array::Stream::Transactional::Matcher::Value);

sub match {
  my ($self, $stream) = @_;
  my $compare = $stream->current;
  return $compare != $self->[0] if($compare =~ $number && $self->[1]);
  return $compare ne $self->[0];
}

package Array::Stream::Transactional::Matcher::Value::gt;
our @ISA = qw(Array::Stream::Transactional::Matcher::Value);

sub match {
  my ($self, $stream) = @_;
  my $compare = $stream->current;
  return $compare > $self->[0] if($compare =~ $number && $self->[1]);
  return $compare gt $self->[0];
}

package Array::Stream::Transactional::Matcher::Value::lt;
our @ISA = qw(Array::Stream::Transactional::Matcher::Value);

sub match {
  my ($self, $stream) = @_;
  my $compare = $stream->current;
  return $compare < $self->[0] if($compare =~ $number && $self->[1]);
  return $compare lt $self->[0];
}

package Array::Stream::Transactional::Matcher::Value::ge;
our @ISA = qw(Array::Stream::Transactional::Matcher::Value);

sub match {
  my ($self, $stream) = @_;
  my $compare = $stream->current;
  return $compare >= $self->[0] if($compare =~ $number && $self->[1]);
  return $compare ge $self->[0];
}

package Array::Stream::Transactional::Matcher::Value::le;
our @ISA = qw(Array::Stream::Transactional::Matcher::Value);

sub match {
  my ($self, $stream) = @_;
  my $compare = $stream->current;
  return $compare <= $self->[0] if($compare =~ $number && $self->[1]);
  return $compare le $self->[0];
}

package Array::Stream::Transactional::Matcher::Value::isa;
our @ISA = qw(Array::Stream::Transactional::Matcher::Value);

sub match {
  my ($self, $stream) = @_;
  my $compare = $stream->current;
  return 0 unless(ref $compare);
  return UNIVERSAL::isa($compare, $self->[0]);
}

1;
__END__