| line |
true |
false |
branch |
|
163
|
0 |
0 |
unless -e $f |
|
164
|
0 |
0 |
unless open my $sha1_fh, '<', $f |
|
165
|
0 |
0 |
if ($sha1_fh) |
|
177
|
0 |
0 |
unless -e $f |
|
178
|
0 |
0 |
unless open my $md5_fh, '<', $f |
|
179
|
0 |
0 |
if ($md5_fh) |
|
190
|
0 |
0 |
if -e $f |
|
197
|
0 |
0 |
if ($name =~ /^\s*[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\s*$/) { } |
|
208
|
0 |
0 |
if $dumper->can('Sortkeys') |
|
216
|
0 |
0 |
unless $object and (-e $object and -d $object) |
|
219
|
0 |
0 |
unless $target |
|
222
|
0 |
0 |
if ($exclude and ref $exclude ne 'ARRAY') { } |
|
226
|
0 |
0 |
unless $exclude |
|
235
|
0 |
0 |
if (-e $td and -d $td) { } |
|
242
|
0 |
0 |
if ($DEBUG) |
|
252
|
0 |
0 |
if (-e $f and -f $f and grep {$_ eq $f;} @exf) { } |
|
|
0 |
0 |
elsif (@exd and grep {_td($_, $f);} @exd) { } |
|
253
|
0 |
0 |
if $DEBUG |
|
256
|
0 |
0 |
if $DEBUG |
|
259
|
0 |
0 |
if (-d $f) { } |
|
261
|
0 |
0 |
if $DEBUG |
|
262
|
0 |
0 |
unless (-e $end) |
|
263
|
0 |
0 |
unless mkdir $end, 511 |
|
268
|
0 |
0 |
if $DEBUG |
|
269
|
0 |
0 |
unless (-e $end) |
|
270
|
0 |
0 |
unless copy($f, $end) |
|
280
|
0 |
0 |
if $DEBUG |
|
285
|
5 |
0 |
unless $n and ref($n) =~ /ARRAY|HASH/ |
|
286
|
0 |
0 |
if ref $n eq 'HASH' |
|
291
|
0 |
0 |
ref $url eq 'URI' ? : |
|
304
|
0 |
0 |
unless defined $p and length $p |
|
305
|
0 |
0 |
$full == 1 ? : |
|
|
0 |
0 |
$full ? : |
|
313
|
0 |
0 |
if $_ =~ /^\s*(\S+)\s+(.+)$/ |
|
327
|
0 |
0 |
unless $dirs |
|
328
|
0 |
0 |
if (-f $o) { } |
|
|
0 |
0 |
elsif (-d $o) { } |
|
338
|
0 |
0 |
if ('File::Spec'->catdir(@t) eq $d) |