| line |
true |
false |
branch |
|
59
|
12 |
0 |
UNIVERSAL::isa($_[0], 'HASH') ? : |
|
64
|
12 |
48 |
if -d $file |
|
69
|
8 |
40 |
if (exists $criteria{'has_sauce'}) { } |
|
|
20 |
20 |
elsif ($info->has_sauce == 0) { } |
|
70
|
4 |
4 |
unless $info->has_sauce == $criteria{'has_sauce'} |
|
81
|
4 |
24 |
if $field eq 'has_sauce' |
|
83
|
12 |
12 |
if ($field eq 'comments') { } |
|
|
6 |
6 |
elsif (ref $criteria{$field} eq 'Regexp') { } |
|
87
|
6 |
6 |
if (ref $criteria{$field} eq 'Regexp') { } |
|
88
|
3 |
3 |
if (scalar @$comments > 0) { } |
|
89
|
2 |
1 |
unless grep(($_ =~ /$criteria{$field}/), @{$comments;}) |
|
92
|
2 |
1 |
unless '' =~ /$criteria{$field}/ |
|
96
|
3 |
3 |
if (scalar @$comments > 0) { } |
|
97
|
2 |
1 |
unless grep(($_ eq $criteria{$field}), @{$comments;}) |
|
100
|
2 |
1 |
unless $criteria{$field} eq '' |
|
105
|
2 |
4 |
unless $info->$field =~ /$criteria{$field}/ |
|
108
|
2 |
4 |
unless $info->$field eq $criteria{$field} |