| line |
true |
false |
branch |
| 60 |
0 |
1 |
unless my $args = check($tmpl, \%hash) |
| 64 |
0 |
1 |
unless (can_load('modules', {'File::Path', 0})) |
| 71 |
0 |
1 |
if ($@) |
| 98 |
1 |
48 |
unless my $args = check($tmpl, \%hash) |
| 100 |
0 |
48 |
unless (chdir $$args{'dir'}) |
| 126 |
0 |
1 |
unless my $args = check($tmpl, \%hash) |
| 128 |
0 |
1 |
unless (can_load('modules', {'File::Path', 0})) |
| 135 |
0 |
1 |
if ($@) |
| 164 |
0 |
16 |
unless check($tmpl, \%hash) |
| 168 |
16 |
0 |
if ($perl eq $^X) { } |
| 179 |
16 |
0 |
if defined $perl_version |
| 200 |
0 |
9 |
unless check($tmpl, \%hash) |
| 202 |
3 |
6 |
if $version =~ /^\.?\d/ |
| 233 |
0 |
61 |
unless check($tmpl, \%hash) |
| 235 |
0 |
61 |
unless my $fh = sub {
|
| 260 |
0 |
3 |
unless check($tmpl, \%hash) |
| 262 |
2 |
1 |
if (File::Copy::move($from, $to)) { } |
| 289 |
0 |
0 |
unless check($tmpl, \%hash) |
| 291 |
0 |
0 |
if (File::Copy::copy($from, $to)) { } |
| 318 |
0 |
141 |
unless check($tmpl, \%hash) |
| 322 |
41 |
100 |
-d $file ? : |
| 324 |
141 |
0 |
if ($x and chmod $x->mode | $mask, $file) { } |
| 352 |
0 |
0 |
unless check($tmpl, \%hash) |
| 384 |
29 |
29 |
unless exists $ENV{$env} |
| 385 |
0 |
29 |
unless defined $ENV{$env} and length $ENV{$env} |
| 386 |
29 |
0 |
if -d $ENV{$env} |