| line |
true |
false |
branch |
|
112
|
0 |
31 |
if (ref $args{'-security_token'} and $args{'-security_token'}->can("access_key_id"))
|
|
120
|
0 |
31 |
unless $id ||= $args{'-access_key'} || $ENV{'EC2_ACCESS_KEY'}
|
|
123
|
0 |
31 |
unless $secret ||= $args{'-secret_key'} || $ENV{'EC2_SECRET_KEY'}
|
|
137
|
0 |
31 |
defined $args{'-security_token'} ? :
|
|
213
|
0 |
6 |
if (exists $incorrect_verbs->{$verb})
|
|
217
|
2 |
4 |
if (ref $arg1 and UNIVERSAL::isa($arg1, "HTTP::Request"))
|
|
221
|
0 |
2 |
if $content
|
|
222
|
2 |
0 |
if (my $date = $request->header('X-Amz-Date') || $request->header('Date'))
|
|
236
|
0 |
6 |
if $uri->query_param("X-Amz-Signature")
|
|
243
|
2 |
4 |
if $expires
|
|
249
|
0 |
6 |
if (defined $self->{'security_token'})
|
|
257
|
3 |
3 |
if ($scope =~ m[/s3/aws4_request$]) { }
|
|
275
|
29 |
0 |
unless ($datetime = $request->header("x-amz-date"))
|
|
317
|
384 |
824 |
if ($host =~ /^(\w+)([-.])($region_re)\.$domain_re/) { }
|
|
|
192 |
632 |
elsif ($host =~ /^$bucket_re\.($region_re)\.s3\.$domain_re/) { }
|
|
|
192 |
440 |
elsif ($host =~ /^s3\.$domain_re/) { }
|
|
|
192 |
248 |
elsif ($host =~ /^$bucket_re\.s3\.$domain_re/) { }
|
|
|
2 |
246 |
elsif ($host =~ /^$bucket_re\.s3[\.-]($region_re)\.$domain_re/) { }
|
|
|
193 |
53 |
elsif ($host =~ /^([\w-]+)\.([\w-]+)\.$domain_re/) { }
|
|
|
7 |
46 |
elsif ($host =~ /^([\w-]+)\.$domain_re/) { }
|
|
|
15 |
31 |
elsif (exists {webservices.amazon.ae => 'eu-west-1', webservices.amazon.ca => 'us-east-1', webservices.amazon.co.jp => 'us-west-2', webservices.amazon.co.uk => 'eu-west-1', webservices.amazon.com => 'us-east-1', webservices.amazon.com.au => 'us-west-2', webservices.amazon.com.br => 'us-east-1', webservices.amazon.com.mx => 'us-east-1', webservices.amazon.com.tr => 'eu-west-1', webservices.amazon.de => 'eu-west-1', webservices.amazon.es => 'eu-west-1', webservices.amazon.fr => 'eu-west-1', webservices.amazon.in => 'eu-west-1', webservices.amazon.it => 'eu-west-1', webservices.amazon.sg => 'us-west-2'}->{$host}) { }
|
|
320
|
192 |
192 |
$2 eq '-' ? :
|
|
377
|
0 |
35 |
if $request->header("Authorization")
|
|
381
|
35 |
0 |
unless ($request->header("host"))
|
|
410
|
45 |
8 |
$date ? :
|
|
429
|
1 |
23 |
if (scalar @params == 0 and defined $uri->query and $uri->query ne "")
|
|
447
|
33 |
105 |
if $header =~ /^date$/i
|
|
452
|
0 |
105 |
if /^".+"$/
|