Branch Coverage

blib/lib/Shared/Examples/Net/Amazon/S3.pm
Criterion Covered Total %
branch 35 50 70.0


line true false branch
42 150 23 unless defined $fixtures{$name}
45 0 173 unless defined $fixtures{$name}
55 0 0 wantarray ? :
68 124 419 if $key eq 'content'
69 163 380 if $key =~ /^response/
76 163 0 wantarray ? :
101 246 1792 defined $1 && length $1 ? :
105 192 11 unless $params{'with_response_headers'}
156 4 0 if (my $code = 'Shared::Examples::Net::Amazon::S3::API'->can($expectation)) { }
165 4 0 if (my $code = 'Shared::Examples::Net::Amazon::S3::Client'->can($expectation)) { }
179 0 0 if XXX
258 0 62 if eq_deeply($got, obj_isa('Net::Amazon::S3::Client'))
269 0 62 if eq_deeply($got, obj_isa('Net::Amazon::S3::Client'))
287 203 0 if (my $code = $class->can($operation)) { }
301 138 65 if ($lives) { }
304 0 138 exists $params{'throws'} ? :
309 57 8 if XXX
311 8 57 if defined $params{'throws'} and not ref $params{'throws'}
315 65 0 defined $params{'throws'} ? :
320 194 9 if exists $params{'expect_request'}
322 64 139 if exists $params{'expect_request_content'}
324 48 155 if exists $params{'expect_request_headers'}
327 62 141 if exists $params{'expect_s3_err'}
329 62 141 if exists $params{'expect_s3_errstr'}
332 0 0 unless &fail($title)