| line |
true |
false |
branch |
|
27
|
1 |
12 |
if (ref $filter eq 'HASH') { } |
|
|
3 |
9 |
elsif (ref $filter eq 'ARRAY') { } |
|
36
|
3 |
6 |
if (ref $filter eq 'Regexp') { } |
|
|
5 |
1 |
elsif (not ref $filter) { } |
|
38
|
0 |
57 |
if -d $_[0] |
|
41
|
0 |
83 |
if -d $_[0] |
|
44
|
2 |
7 |
if (ref $rules eq 'HASH') { } |
|
45
|
0 |
1 |
ref $$rules{$_} eq 'Regexp' ? : |
|
52
|
7 |
0 |
unless ref $rules eq 'ARRAY' |
|
53
|
0 |
7 |
ref $_ eq 'Regexp' ? : |
|
73
|
0 |
9 |
unless @dirs |
|
75
|
16 |
128 |
if &$filter($File::Find::name) |
|
78
|
1 |
15 |
if -d $file |
|
84
|
2 |
12 |
if ($type eq 'unlike') { } |
|
|
3 |
9 |
elsif (not $content =~ /$rule/g) { } |
|
101
|
5 |
10 |
if @failures |
|
109
|
1 |
10 |
if pos $file > $pos |