Branch Coverage
blib/lib/AWS/S3.pm
Criterion
Covered
Total
%
branch
7
8
87.5
line
true
false
branch
124
2
3
unless
my
(
$bucket
)
=
grep
(
{
$_
->
name
eq
$name
;
}
$s
->
buckets
)
138
0
1
$s
->
region
?
:
2
1
$args
{
'location'
} ?
:
144
2
1
if
(
my
$msg
=
$response
->
friendly_error
)