| line |
true |
false |
branch |
|
54
|
0 |
0 |
unless -e $file |
|
56
|
0 |
0 |
unless $fsize |
|
58
|
0 |
0 |
if (-f $file and -T $file) { } |
|
59
|
0 |
0 |
if $fsize < 23 |
|
60
|
0 |
0 |
if $$self{'max_txt_size'} and $fsize > $$self{'max_txt_size'} * 1024 |
|
64
|
0 |
0 |
if $$self{'max_bin_size'} and $fsize > $$self{'max_bin_size'} * 1024 |
|
68
|
0 |
0 |
if ($res) |
|
69
|
0 |
0 |
if ($$self{'extension'} and not $file =~ /\.$$self{'extension'}$/o) |
|
71
|
0 |
0 |
if (move($file, $newname)) { } |
|
74
|
0 |
0 |
if ($$self{'copy'}) |
|
75
|
0 |
0 |
if (not -d $$self{'copy'} and $$self{'mkdir'}) |
|
76
|
0 |
0 |
unless mkdir $$self{'copy'}, $$self{'mkdir'} |
|
80
|
0 |
0 |
unless copy($file, $cpdir) |
|
82
|
0 |
0 |
if ($$self{'move'}) |
|
83
|
0 |
0 |
if (not -d $$self{'move'} and $$self{'mkdir'}) |
|
84
|
0 |
0 |
unless mkdir $$self{'move'}, $$self{'mkdir'} |
|
88
|
0 |
0 |
if (move($file, $mvfile)) { } |
|
91
|
0 |
0 |
if ($$self{'delete'}) |
|
92
|
0 |
0 |
if ($file =~ /^(.+)$/s) |
|
93
|
0 |
0 |
unless unlink $1 |
|
104
|
0 |
0 |
if (defined $subref and ref $subref eq 'CODE') { } |
|
|
0 |
0 |
elsif (exists $$self{'callback'}) { } |