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; |