| blib/lib/Data/ULID.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 24 | 70.8 |
| line | true | false | branch |
|---|---|---|---|
| 42 | 0 | 4 | unless $ulid |
| 50 | 0 | 1 | unless my $ulid = shift() |
| 56 | 0 | 3 | unless my $uuid = shift() |
| 66 | 0 | 1 | if length $uuid == 36 |
| 67 | 0 | 1 | unless length $uuid == 16 |
| 80 | 0 | 3 | if length $uuid == 16 |
| 90 | 17 | 2 | if ($arg) |
| 91 | 1 | 16 | if (ref $arg and $arg->isa('DateTime')) { } |
| 7 | 9 | elsif (length $arg == 16) { } | |
| 99 | 0 | 9 | unless length $arg == 26 |
| 158 | 30 | 18 | if $padded == 0 |
| 162 | 16 | 2 | if $padding eq $char x $padded |