| line |
true |
false |
branch |
|
24
|
1 |
1 |
if $@ |
|
67
|
1 |
76 |
if ($method =~ s/^\!//) |
|
73
|
55 |
21 |
unless (defined prototype $method) |
|
75
|
6 |
49 |
ref $args eq 'ARRAY' ? : |
|
77
|
1 |
75 |
if ($not) |
|
84
|
16 |
60 |
if $method eq 'in' |
|
117
|
25 |
137 |
unless ref $object |
|
143
|
1 |
24 |
ref $item eq 'ARRAY' ? : |
|
150
|
14 |
10 |
ref $_ eq 'Regexp' ? : |
|
416
|
1 |
0 |
ref $_ ? : |
|
|
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(@_) |
|
519
|
0 |
1 |
unless $AUTOLOAD =~ /::not_([^:]*)$/ |
|
555
|
0 |
41 |
if $self->{'relative'} and @_ > 1 |
|
598
|
0 |
41 |
unless my $sub = eval "$code" |
|
604
|
41 |
0 |
unless $topdir eq '/' |
|
620
|
6 |
56 |
unless @{$self->{'rules'};} |
|
622
|
14 |
73 |
if (ref $_->{'code'}) { } |