| line |
true |
false |
branch |
|
24
|
1 |
1 |
if $@ |
|
67
|
1 |
172 |
if ($method =~ s/^\!//) |
|
73
|
151 |
21 |
unless (defined prototype $method) |
|
75
|
6 |
145 |
ref $args eq 'ARRAY' ? : |
|
77
|
1 |
171 |
if ($not) |
|
84
|
40 |
132 |
if $method eq "in" |
|
117
|
25 |
255 |
unless ref $object |
|
143
|
1 |
54 |
ref $item eq 'ARRAY' ? : |
|
150
|
14 |
40 |
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 |
70 |
if $self->{'relative'} and @_ > 1 |
|
598
|
0 |
70 |
unless my $sub = eval "$code" |
|
604
|
70 |
0 |
unless $topdir eq "/" |
|
620
|
6 |
85 |
unless @{$self->{'rules'};} |
|
622
|
43 |
105 |
if (ref $_->{'code'}) { } |