| line |
true |
false |
branch |
|
24
|
2 |
4 |
if (ref $_[1] eq 'CODE') |
|
52
|
0 |
4 |
if $called++ |
|
54
|
2 |
2 |
if ($func eq 'croak' or $func eq 'confess') |
|
61
|
2 |
4 |
$func eq 'croak' || $func eq 'confess' ? : |
|
62
|
2 |
4 |
unless $called |
|
101
|
9 |
18 |
if (not defined $match) { } |
|
|
6 |
12 |
elsif ($match eq '') { } |
|
|
6 |
6 |
elsif (ref $match eq 'Regexp') { } |
|
105
|
0 |
6 |
if @_ and grep {defined $_;} @_ |
|
106
|
0 |
6 |
if $called++ |
|
108
|
3 |
3 |
if ($func eq 'croak' or $func eq 'confess') |
|
116
|
0 |
4 |
if "@_" ne '' |
|
117
|
0 |
4 |
if $called++ |
|
119
|
2 |
2 |
if ($func eq 'croak' or $func eq 'confess') |
|
127
|
0 |
4 |
unless "@_" =~ /$match/ |
|
128
|
0 |
4 |
if $called++ |
|
130
|
2 |
2 |
if ($func eq 'croak' or $func eq 'confess') |
|
139
|
6 |
0 |
ref $match eq 'Regexp' ? : |
|
|
6 |
0 |
if (eval {
do {
$match = qr/$match/;
ref $match eq 'Regexp' ? 1 : 0
}
}) { } |
|
141
|
0 |
4 |
unless "@_" =~ /$match/ |
|
142
|
0 |
4 |
if $called++ |
|
144
|
2 |
2 |
if ($func eq 'croak' or $func eq 'confess') |
|
153
|
0 |
0 |
unless "@_" =~ /$match/ |
|
154
|
0 |
0 |
if $called++ |
|
156
|
0 |
0 |
if ($func eq 'croak' or $func eq 'confess') |
|
165
|
9 |
18 |
$func eq 'croak' || $func eq 'confess' ? : |
|
166
|
9 |
18 |
unless $called |