| line |
true |
false |
branch |
|
23
|
0 |
0 |
unless overload::Method($x, "\"\"") or $x->can("to_string") |
|
505
|
2002 |
6004 |
($_[1] // 64) == 32 ? : |
|
572
|
4 |
6002 |
if (ref $radix) |
|
580
|
0 |
6006 |
unless (defined $p->{'version'}) |
|
587
|
0 |
6006 |
if ref $uuid |
|
591
|
0 |
6006 |
if (length $uuid == 16) { } |
|
600
|
6006 |
0 |
if ($uuid =~ /^(?i:urn:uuid:)?[0-9A-Fa-f-]{32,}$/u) { } |
|
|
0 |
0 |
elsif ($uuid =~ m[^[0-9A-Za-z=+/_-]$]u) { } |
|
725
|
6001 |
0 |
if (ref $format) { } |
|
|
0 |
0 |
elsif (ref $radix) { } |
|
735
|
6000 |
1 |
if defined $p->{'radix'} |
|
744
|
0 |
6001 |
unless (defined $p->{'version'}) |
|
751
|
0 |
6001 |
unless defined $ncname |
|
757
|
0 |
6001 |
unless my($version, $content) = $ncname =~ /^([A-Za-z])([0-9A-Za-z_-]{21,})$/u |
|
760
|
6000 |
1 |
if ($radix) { } |
|
761
|
0 |
4000 |
unless $radix == 32 or $radix == 58 or $radix == 64 |
|
768
|
1 |
0 |
if ($len == 22) { } |
|
|
0 |
0 |
elsif ($len == 23) { } |
|
|
0 |
0 |
elsif ($len == 26) { } |