Branch Coverage

blib/lib/Amazon/S3/Thin.pm
Criterion Covered Total %
branch 57 80 71.2


line true false branch
23 1 17 if ($self->{'credential_provider'} and $self->{'credential_provider'} eq 'env') { }
0 17 elsif ($self->{'credential_provider'} and $self->{'credential_provider'} eq 'metadata') { }
31 1 16 unless $self->{'aws_access_key_id'}
32 1 15 unless $self->{'aws_secret_access_key'}
48 15 1 unless defined $self->secure
49 8 8 unless defined $self->ua
50 15 1 unless defined $self->debug
51 15 1 unless defined $self->virtual_host
53 12 4 unless defined $self->{'signature_version'}
54 0 16 if ($self->{'signature_version'} == 4 and not $self->{'region'})
66 0 16 unless eval "require $signer_class"
68 3 13 if ($version == 2) { }
13 0 elsif ($version == 4) { }
92 15 41 if (@_) { }
101 16 19 if (@_) { }
110 8 35 if (@_) { }
119 15 38 if (@_) { }
128 0 17 if $self->{'debug'}
130 0 17 if $self->{'debug'}
164 2 2 if ($self->_looks_like_special_case_error($res))
177 0 2 unless $key and length $key
179 0 2 if ($headers->{'acl_short'})
185 0 2 if (ref $content eq 'SCALAR') { }
193 0 2 if (ref $content) { }
210 0 2 unless $bucket
214 2 0 if (%$opt)
267 0 0 if ($region eq 'us-east-1') { }
289 1 8 unless defined $bucket
290 1 7 unless defined $key
292 6 1 if ($self->{'signature_version'} == 4) { }
294 0 6 $self->secure ? :
301 0 6 $self->virtual_host ? :
317 0 0 if (not grep({$policy_name eq $_;} "private", "public-read", "public-read-write", "authenticated-read"))
327 0 17 unless $method
328 0 17 unless defined $resource
329 0 17 if (ref $resource ne "Amazon::S3::Thin::Resource")
345 0 17 $self->secure ? :
349 16 1 if ($self->{'signature_version'} == 4) { }
350 7 9 if ($self->virtual_host) { }
361 17 0 unless ($request->header("Authorization"))