File Coverage

blib/lib/Test/CallFlow/ArgCheck/Any.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 11 11 100.0


line stmt bran cond sub pod time code
1             package Test::CallFlow::ArgCheck::Any;
2 6     6   42 use strict;
  6         11  
  6         481  
3 6     6   40 use base 'Test::CallFlow::ArgCheck';
  6         13  
  6         4611  
4              
5             =head1 Test::CallFlow::ArgCheck::Any
6              
7             =head1 SYNOPSIS
8              
9             die "Impossible" unless defined
10             my $equality =
11             Test::CallFlow::ArgCheck::Any
12             ->new( test => 'man' )
13             ->check( 1, [ 'child', 'woman' ] );
14              
15             Use objects of this class to pass one or more arguments without checking
16             in a call to a mocked function.
17              
18             =head1 FUNCTIONS
19              
20             =head2 check
21              
22             Always returns 1.
23              
24             =cut
25              
26 9     9 1 17 sub check { 1 }
27              
28             1;