| line |
true |
false |
branch |
|
44
|
1 |
1 |
if $@ |
|
64
|
1 |
73 |
if ($method =~ s/^\!//) |
|
71
|
53 |
20 |
unless (defined prototype $method) |
|
74
|
6 |
47 |
ref $args eq 'ARRAY' ? : |
|
76
|
1 |
72 |
if ($not) |
|
84
|
15 |
58 |
if $method eq 'in' |
|
112
|
22 |
288 |
unless (ref $object) |
|
126
|
1 |
22 |
ref $item eq 'ARRAY' ? : |
|
144
|
15 |
7 |
ref $_ eq 'Regexp' ? : |
|
311
|
1 |
0 |
ref $_ ? : |
|
|
1 |
1 |
ref $_ eq 'ARRAY' ? : |
|
|
2 |
0 |
ref $_ ? : |
|
319
|
0 |
3 |
unless open FILE, $self->finder->item |
|
326
|
5 |
0 |
ref $rule eq 'Regexp' ? : |
|
|
3 |
2 |
if ref $rule eq 'Regexp' ? /$rule/ : &$rule(@_) |
|
366
|
0 |
1 |
unless $File::Find::Object::Rule::AUTOLOAD =~ /::not_([^:]*)$/ |
|
399
|
6 |
50 |
unless @{$self->rules;} |
|
402
|
14 |
67 |
if (ref $_->{'code'}) { } |
|
443
|
0 |
37 |
if $self->_relative and @paths > 1 |
|
485
|
0 |
37 |
unless my $callback = eval "$code" |
|
505
|
7 |
258 |
if (defined $preproc_cb and $next_obj->is_dir) |
|
514
|
98 |
167 |
if (defined(my $path = &$match_cb($next_obj, $next_obj->path))) |
|
516
|
1 |
97 |
if ($self->_relative) { } |
|
519
|
1 |
0 |
if (@$comps) |
|
522
|
0 |
1 |
$next_obj->is_dir ? : |