| blib/lib/Catmandu/Store/File/BagIt.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 10 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 1 | 5 | unless $self->keysize % 3 == 0 |
| 42 | 4 | 30 | if ($self->uuid) { } |
| 29 | 1 | elsif ($key =~ qr/\A$h+\z/) { } | |
| 43 | 2 | 2 | unless $key =~ qr/\A${h}{8}-${h}{4}-${h}{4}-${h}{4}-${h}{12}\z/ |
| 46 | 3 | 26 | unless length $key and length $key <= $keysize |