| blib/lib/Data/TUID/BestUUID.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 24 | 54.1 |
| line | true | false | branch |
|---|---|---|---|
| 12 | 3 | 1 | unless $skip{'LibUUID'} |
| 17 | 3 | 1 | unless $skip{'DataUUID'} |
| 23 | 0 | 12 | if $loaded{'LibUUID'} |
| 24 | 12 | 0 | if $loaded{'DataUUID'} |
| 33 | 0 | 13 | unless $uuid |
| 37 | 0 | 13 | if ($loaded{'LibUUID'}) { } |
| 13 | 0 | elsif ($loaded{'DataUUID'}) { } | |
| 39 | 0 | 0 | if $result |
| 48 | 13 | 0 | if $result |
| 51 | 13 | 0 | if $result |
| 53 | 0 | 13 | if $@ |
| 58 | 0 | 13 | unless $result =~ /^ (?:[a-f0-9]{8}) - (?:[a-f0-9]{4}) - (?:[a-f0-9]{4}) - (?:[a-f0-9]{4}) - (?:[a-f0-9]{12}) $/x |