| line |
true |
false |
branch |
|
51
|
47 |
0 |
unless exists $$headers{'Authorization'}
|
|
96
|
47 |
0 |
unless ($headers->header('Date'))
|
|
100
|
47 |
0 |
unless ($headers->header('Content-Type'))
|
|
104
|
47 |
0 |
unless ($headers->header('Content-MD5'))
|
|
123
|
47 |
0 |
if ($lk eq 'content-md5' or $lk eq 'content-type' or $lk eq 'date' or $lk =~ /^$AMAZON_HEADER_PREFIX/)
|
|
135
|
0 |
47 |
if $interesting_headers{'x-amz-date'}
|
|
140
|
0 |
47 |
if $expires
|
|
144
|
0 |
141 |
if ($key =~ /^$AMAZON_HEADER_PREFIX/) { }
|
|
159
|
0 |
47 |
if ($path =~ /[&?](acl|torrent|location|uploads|delete)($|=|&)/) { }
|
|
|
0 |
47 |
elsif (my(%query_params) = 'URI'->new($path)->query_form) { }
|
|
163
|
0 |
0 |
if ($query_params{'partNumber'} and $query_params{'uploadId'}) { }
|
|
|
0 |
0 |
elsif ($query_params{'uploadId'}) { }
|
|
184
|
0 |
47 |
if ($urlencode) { }
|
|
196
|
0 |
0 |
if (length $bucketname > 63)
|
|
199
|
0 |
0 |
if (length $bucketname < 3)
|
|
202
|
0 |
0 |
unless $bucketname =~ /^[a-z0-9][a-z0-9.-]+$/
|
|
205
|
0 |
0 |
if $c =~ /^-/
|
|
206
|
0 |
0 |
if $c =~ /-$/
|
|
207
|
0 |
0 |
if $c eq ''
|