line |
true |
false |
branch |
23
|
0 |
176 |
if (exists $t{'skip'} and $t{'skip'}->()) |
28
|
0 |
176 |
exists $t{'env'} ? : |
30
|
0 |
176 |
if @envs |
31
|
0 |
176 |
if (@envs) |
36
|
0 |
176 |
if (exists $t{'pre'} and not $t{'pre'}->()) |
46
|
0 |
352 |
if exists $t{$std} and not defined $t{$std} |
47
|
238 |
114 |
unless exists $t{$std} |
50
|
176 |
176 |
$std eq 'stdout' ? : |
52
|
79 |
273 |
if (ref $t{$std} eq 'CODE') { } |
|
32 |
241 |
elsif (ref $t{$std} eq 'Regexp') { } |
61
|
176 |
0 |
if (not exists $t{'exit'} or defined $t{'exit'}) |
62
|
106 |
70 |
unless exists $t{'exit'} |
69
|
69 |
107 |
if exists $t{'test'} |
71
|
0 |
176 |
if (exists $t{'post'} and not $t{'post'}->()) |
76
|
176 |
0 |
if (not exists $t{'clean'} or defined $t{'clean'}) |
77
|
169 |
7 |
unless exists $t{'clean'} |
78
|
87 |
96 |
if -f $_ |