| line |
true |
false |
branch |
|
56
|
4 |
38 |
unless not $_[0] =~ /[^\x00-\x7f]/
|
|
74
|
5 |
30 |
if (defined(my $val = delete $args{$_}))
|
|
79
|
1 |
6 |
if %args
|
|
86
|
1 |
5 |
if $self->{'multipart_threshold'} < 5242880
|
|
141
|
3 |
4 |
if (ref $fh_or_filename) { }
|
|
195
|
0 |
14 |
unless $self->{'bucket'}
|
|
199
|
8 |
5 |
if ($length > $self->{'multipart_threshold'}) { }
|
|
238
|
1 |
13 |
if (defined $cephsize and $cephsize == 0) { }
|
|
242
|
2 |
6 |
unless _download($self, $key, sub {
$data .= $_[0];
}
)
|
|
267
|
1 |
7 |
if (ref $fh_or_filename) { }
|
|
281
|
1 |
7 |
if (defined $cephsize and $cephsize == 0) { }
|
|
289
|
0 |
10 |
unless print $fh $_[0]
|
|
290
|
1 |
6 |
unless _download($self, $key, sub {
$size += length $_[0];
confess("Error writing to file $!") unless print $fh $_[0];
}
)
|
|
312
|
0 |
20 |
unless $self->{'bucket'}
|
|
326
|
3 |
26 |
unless $dataref
|
|
328
|
9 |
17 |
if (defined $got_etag) { }
|
|
333
|
1 |
8 |
unless $got_etag eq $etag
|
|
341
|
17 |
8 |
unless (defined $check_md5)
|
|
344
|
1 |
13 |
if $etag_md5 and $custom_md5 and $etag_md5 ne $custom_md5
|
|
346
|
13 |
3 |
if ($etag_md5) { }
|
|
|
1 |
2 |
elsif ($custom_md5) { }
|
|
354
|
22 |
2 |
if ($check_md5)
|
|
360
|
14 |
10 |
unless $bytesleft
|
|
362
|
13 |
1 |
if ($check_md5)
|
|
364
|
2 |
11 |
unless $got_md5 eq $check_md5
|
|
378
|
0 |
2 |
unless $self->{'bucket'}
|
|
394
|
0 |
2 |
unless $self->{'bucket'}
|
|
415
|
0 |
4 |
unless $expires
|
|
418
|
3 |
1 |
if ($self->{'query_string_authentication_host_replace'})
|
|
420
|
2 |
1 |
unless $replace =~ m[/$]
|
|
456
|
1 |
1 |
unless $self->{'bucket'}
|
|
474
|
1 |
3 |
unless $self->{'bucket'}
|
|
475
|
2 |
1 |
unless $key and $upload_id
|