File Coverage

blib/lib/Data/Predicate.pm

Criterion	Covered	Total	%
statement	37	38	97.3
branch	8	8	100.0
condition	1	3	33.3
subroutine	9	10	90.0
pod	6	6	100.0
total	61	65	93.8

package Data::Predicate;

use strict;
use warnings;

our $VERSION = '2.1.1';
use Carp;

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

sub apply {
  confess('Not implemented at this level');
}

sub filter {
  my ($self, $values) = @_;
  return [ grep { $self->apply($_) } @{$values}];
}

sub filter_transform {
  my ($self, $values, $transformer) = @_;
  my @transformed;
  foreach my $value (@{$values}) {
    if($self->apply($value)) {
      push(@transformed, $transformer->($value));
    }
  }
  return \@transformed;
}

sub all_true {
  my ($self, $objects) = @_;
  my $count = $self->_count_truth($objects);
  return (scalar(@{$objects}) == $count) ? 1 : 0;
}

sub all_false {
  my ($self, $objects) = @_;
  my $count = $self->_count_truth($objects);
  return ($count == 0) ? 1 : 0;
}

sub _count_truth {
  my ($self, $objects) = @_;
  my $count = 0;
  foreach my $obj (@{$objects}) {
    $count++ if $self->apply($obj);
  }
  return $count;
}

1;
__END__