| blib/lib/AWS/S3/Roles/Bucket.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 10 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 9 | 0 | 7 | $s->s3->secure ? : |
| 12 | 5 | 2 | if ($path =~ m[^([^/?]+)(.*)] and $s->is_dns_bucket($1)) |
| 23 | 2 | 12 | if length $bucket < 3 or length $bucket > 63 |
| 24 | 1 | 11 | if $bucket =~ /^(?:\d{1,3}\.){3}\d{1,3}$/ |
| 28 | 3 | 8 | $bucket =~ /[^a-z0-9-\.]/ ? : |