Branch Coverage

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


line true false branch
42 154 23 unless defined $fixtures{$name}
45 0 177 unless defined $fixtures{$name}
55 0 0 wantarray ? :
68 127 429 if $key eq "content"
69 167 389 if $key =~ /^response/
76 167 0 wantarray ? :
101 252 1865 defined $1 && length $1 ? :
105 196 14 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
259 0 62 if eq_deeply($got, obj_isa("Net::Amazon::S3::Client"))
270 0 62 if eq_deeply($got, obj_isa("Net::Amazon::S3::Client"))
288 210 0 if (my $code = $class->can($operation)) { }
302 141 69 if ($lives) { }
305 0 141 exists $params{'throws'} ? :
310 61 8 if XXX
312 8 61 if defined $params{'throws'} and not ref $params{'throws'}
316 69 0 defined $params{'throws'} ? :
321 201 9 if exists $params{'expect_request'}
323 64 146 if exists $params{'expect_request_content'}
325 51 159 if exists $params{'expect_request_headers'}
328 62 148 if exists $params{'expect_s3_err'}
330 62 148 if exists $params{'expect_s3_errstr'}
333 0 0 unless &fail($title)