| line |
true |
false |
branch |
|
41
|
1 |
14 |
unless defined $action |
|
43
|
1 |
12 |
if ($predicate eq 'default') |
|
67
|
1 |
1 |
if (exists $$self{'default'}) |
|
71
|
1 |
1 |
unless (@files) |
|
79
|
95 |
398 |
if ($$rule[0]($path)) |
|
81
|
71 |
24 |
if (ref $v) |
|
82
|
2 |
69 |
if $v == \19 |
|
83
|
33 |
36 |
if $v == \85 |
|
88
|
33 |
60 |
if (-d $path) |
|
108
|
1 |
21 |
unless defined $pred |
|
112
|
10 |
11 |
if ($ref eq 'Regexp') { } |
|
|
3 |
8 |
elsif ($ref eq 'CODE') { } |
|
|
7 |
1 |
elsif (not $ref) { } |
|
120
|
1 |
6 |
if ($pred eq 'dir') { } |
|
|
0 |
6 |
elsif ($pred eq 'file') { } |
|
128
|
1 |
6 |
if ($@) |
|
143
|
0 |
14 |
if (UNIVERSAL::isa($act, 'UNIVERSAL')) { } |
|
|
13 |
1 |
elsif (ref $act eq 'CODE') { } |
|
145
|
0 |
0 |
if ($act->can('action')) { } |