| line |
true |
false |
branch |
|
38
|
3 |
14 |
if (ref $value eq 'SCALAR') { }
|
|
46
|
1 |
16 |
if exists $args{'acl_short'}
|
|
47
|
10 |
7 |
if exists $args{'acl'}
|
|
54
|
3 |
14 |
if ref $value
|
|
85
|
6 |
0 |
if (%args)
|
|
86
|
6 |
0 |
if ($args{'acl_short'})
|
|
108
|
0 |
0 |
unless $response->is_success
|
|
116
|
0 |
2 |
unless %args
|
|
136
|
3 |
1 |
unless exists $args{'method'}
|
|
153
|
3 |
19 |
if ref $args{'filename'}
|
|
166
|
4 |
2 |
unless $response->is_success
|
|
194
|
0 |
5 |
unless scalar @objects
|
|
205
|
0 |
11 |
ref $_ ? :
|
|
|
0 |
5 |
scalar @objects > 1000 ? :
|
|
210
|
3 |
1 |
unless $response->is_success
|
|
220
|
0 |
9 |
unless defined $args{'key'} and length $args{'key'}
|
|
254
|
8 |
6 |
if (defined $args{'key'}) { }
|
|
267
|
3 |
2 |
unless $response->is_success
|
|
276
|
13 |
11 |
if (defined $args{'key'}) { }
|
|
289
|
7 |
11 |
unless $response->is_success
|
|
302
|
0 |
0 |
unless $response->is_success
|
|
308
|
11 |
3 |
@_ == 1 ? :
|
|
311
|
8 |
6 |
if (defined $args{'key'}) { }
|
|
332
|
9 |
6 |
if (defined $args{'key'}) { }
|
|
354
|
0 |
3 |
unless -r $filename and -f _ || $remaining
|
|
356
|
0 |
3 |
unless my $fh = 'IO::File'->new($filename, 'r')
|
|
364
|
0 |
0 |
unless ($fh->opened)
|
|
365
|
0 |
0 |
unless $fh = 'IO::File'->new($filename, 'r')
|
|
372
|
0 |
0 |
unless (my $read = $fh->read($buffer, $blksize))
|
|
375
|
0 |
0 |
if $! and $remaining
|
|
380
|
0 |
0 |
unless $fh->close
|
|
393
|
1 |
0 |
$self->account->secure ? :
|
|
398
|
1 |
0 |
if ($self->account->use_virtual_host)
|
|
415
|
1 |
0 |
if $response->header('Net::Amazon::S3::Constants'->HEADER_BUCKET_REGION)
|