Branch Coverage

blib/lib/UUID.pm
Criterion Covered Total %
branch 13 14 92.8


line true false branch
35 7 180 if (length $v > 8 and substr($v, 0, 8) eq ":persist")
37 0 7 if (length $arg < 2 or substr($arg, 0, 1) ne "=")
46 8 172 if (length $v == 11 and $v eq ":mac=random")
52 2 170 if (length $v == 11 and $v eq ":mac=unique")
58 6 164 if (length $v >= 6 and substr($v, 0, 6) eq ":defer")
61 1 5 if ($len == 0) { }
1 4 elsif ($len == 1 or substr($arg, 0, 1) ne '=') { }