| line |
true |
false |
branch |
|
24
|
1 |
1 |
if $@
|
|
67
|
1 |
73 |
if ($method =~ s/^\!//)
|
|
73
|
53 |
20 |
unless (defined prototype $method)
|
|
75
|
6 |
47 |
ref $args eq 'ARRAY' ? :
|
|
77
|
1 |
72 |
if ($not)
|
|
84
|
15 |
58 |
if $method eq 'in'
|
|
117
|
25 |
134 |
unless ref $object
|
|
143
|
1 |
23 |
ref $item eq 'ARRAY' ? :
|
|
150
|
14 |
9 |
ref $_ eq 'Regexp' ? :
|
|
413
|
1 |
0 |
ref $_ ? :
|
|
416
|
1 |
1 |
ref $_ eq 'ARRAY' ? :
|
|
|
2 |
0 |
ref $_ ? :
|
|
423
|
0 |
3 |
unless open FILE, $_
|
|
428
|
5 |
0 |
ref $rule eq 'Regexp' ? :
|
|
|
3 |
2 |
if ref $rule eq 'Regexp' ? /$rule/ : &$rule(@_)
|
|
502
|
0 |
1 |
unless $AUTOLOAD =~ /::not_([^:]*)$/
|
|
537
|
0 |
40 |
if $$self{'relative'} and @_ > 1
|
|
578
|
0 |
40 |
unless my $sub = eval "$code"
|
|
584
|
40 |
0 |
unless $topdir eq '/'
|
|
600
|
6 |
55 |
unless @{$$self{'rules'};}
|
|
602
|
14 |
72 |
if (ref $$_{'code'}) { }
|