File Coverage

blib/lib/Data/Predicate/ClosurePredicate.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	5	8	62.5
condition	1	2	50.0
subroutine	8	8	100.0
pod	4	4	100.0
total	46	50	92.0

package Data::Predicate::ClosurePredicate;

use strict;
use warnings;
use Carp;

use base qw(Data::Predicate);

sub new {
  my ($class, %args) = @_;

  confess('No closure given; cannot create an object without one')
    unless defined $args{closure};

  my $self = $class->SUPER::new();
  $self->closure($args{closure});
  $self->description($args{description});
  return $self;
}

sub closure {
  my ($self, $closure) = @_;
  if(defined $closure) {
    confess("${closure} is not a CodeRef; cannot continue") unless ref($closure) eq 'CODE';
    $self->{closure} = $closure;
  }
  return $self->{closure};
}

sub description {
  my ($self, $description) = @_;
  $self->{description} = $description if defined $description;
  return $self->{description} || 'unknown';
}

sub apply {
  my ($self, $object) = @_;
  return $self->closure()->($object);
}

1;
__END__