File Coverage

blib/lib/Test/CallFlow/ArgCheck/Regexp.pm

Criterion	Covered	Total	%
statement	8	8	100.0
branch	1	2	50.0
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	13	14	92.8

package Test::CallFlow::ArgCheck::Regexp;
use strict;
use base 'Test::CallFlow::ArgCheck';

=head1 Test::CallFlow::ArgCheck::Regexp

  die "Unfit" unless defined
    my $fit =
      Test::CallFlow::ArgCheck::Regexp->new( qr/^..$/ )->check( 0, [ 'foo' ] );

Checks arguments against a regular expression. See base class C.

=head1 FUNCTIONS

=head2 check

  $checker->check( 1, [ 'foo', 'bar' ] ) ? 'ok' : die;

Checks the argument at given position in referred array against a regular expression.

=cut

sub check {
    my ( $self, $at, $args ) = @_;
    defined $args->[$at]
        and $args->[$at] =~ $self->{test};
}

1;