| line |
true |
false |
branch |
|
61
|
6 |
9 |
unless $self->cleanup and defined(my $path = $self->path) |
|
63
|
9 |
0 |
if -w $path |
|
72
|
1 |
18 |
if ($self->start_range) { } |
|
78
|
0 |
19 |
unless defined $handle->syswrite($chunk, length $chunk) |
|
92
|
2 |
35 |
$len > 131072 ? : |
|
93
|
18 |
19 |
if $size > $end - $self->start_range |
|
102
|
29 |
26 |
$diff < $size ? : |
|
107
|
29 |
26 |
if $pos >= 0 |
|
108
|
7 |
19 |
if $read == 0 or ($offset += $read) == $end |
|
126
|
7 |
1 |
if (defined(my $end = $self->end_range)) { } |
|
127
|
0 |
7 |
if (my $chunk = $end + 1 - $offset) <= 0 |
|
128
|
3 |
4 |
$chunk > $max ? : |
|
148
|
0 |
1 |
if ($content) |
|
164
|
0 |
1 |
if ($content) |
|
179
|
0 |
0 |
unless eval ' require Digest::CRC ' |
|
183
|
0 |
0 |
if ($content) |
|
203
|
0 |
2 |
unless (-e $dir) |
|
204
|
0 |
0 |
unless (File::Path::make_path($dir) and -d $dir) |
|
211
|
0 |
2 |
unless move($from, $to) |
|
222
|
0 |
5 |
unless defined(my $path = (shift())->path) |
|
223
|
0 |
5 |
unless open my $file, '<', $path |