| blib/lib/Catmandu/Store/File/BagIt.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 16 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 1 | 5 | unless $self->keysize % 3 == 0 |
| 38 | 0 | 1 | unless $self->default_case =~ /^(upper|lower)$/ |
| 49 | 35 | 4 | if ($self->default_case eq 'upper') { } |
| 4 | 0 | elsif ($self->default_case eq 'lower') { } | |
| 62 | 8 | 31 | if ($self->uuid) { } |
| 30 | 1 | elsif ($key =~ qr/\A\d+\z/) { } | |
| 63 | 4 | 4 | unless $key =~ qr/\A${h}{8}-${h}{4}-${h}{4}-${h}{4}-${h}{12}\z/ |
| 66 | 3 | 27 | unless length $key and length $key <= $keysize |