| line |
true |
false |
branch |
|
35
|
11 |
2 |
if (eval {
do {
$b->isa('UUID::Object')
}
}) |
|
40
|
2 |
0 |
unless (ref $b) |
|
44
|
2 |
0 |
unless ($@) |
|
62
|
1 |
80 |
if ref $class |
|
130
|
1 |
8 |
if (not defined $arg) { } |
|
|
0 |
8 |
elsif (eval {
do {
$arg->isa(ref $self)
}
}) { } |
|
|
8 |
0 |
elsif (not ref $arg || @_) { } |
|
137
|
2 |
6 |
if (length $arg == 16) { } |
|
|
2 |
4 |
elsif ($arg =~ / \A [0-9a-f]{32} \z /imosx) { } |
|
|
2 |
2 |
elsif ($arg =~ / \A [0-9a-f]{8} (?: - [0-9a-f]{4} ){3}
- [0-9a-f]{12} \z /imosx) { } |
|
|
2 |
0 |
elsif ($arg =~ m[ \A [+/0-9A-Za-z]{22} == \z ]mosx) { } |
|
165
|
0 |
3 |
unless (eval {
do {
$arg->isa(ref $self)
}
}) |
|
202
|
0 |
68 |
unless ($arg =~ / \A [0-9a-f]{32} \z /imosx) |
|
220
|
0 |
5 |
unless ($arg =~ m[ \A [+/0-9A-Za-z]{22} == \z ]mosx) |
|
230
|
0 |
0 |
unless ($arg =~ m[ \A [+/0-9A-Za-z]{22} == \z ]mosx) |
|
239
|
2 |
0 |
@_ && ref $_[0] eq 'HASH' ? : |
|
241
|
1 |
1 |
if (my $variant = delete $$arg{'variant'}) |
|
248
|
6 |
8 |
if (exists $$arg{$key}) |
|
336
|
3 |
46 |
if (@_) |
|
339
|
0 |
3 |
unless ($var =~ /^\d+$/o and grep {$var == $_;} '0', '2', '6', '7', '4') |
|
342
|
0 |
3 |
if $var == 4 |
|
344
|
0 |
3 |
if ($var == 0) { } |
|
|
3 |
0 |
elsif ($var < 3) { } |
|
363
|
35 |
11 |
if (exists $varmap{$var}) |
|
373
|
7 |
51 |
if (@_) |
|
376
|
0 |
7 |
if (not $ver =~ /^\d+$/o or $ver < 0 or $ver > 15) |
|
392
|
3 |
3 |
if (@_) |
|
406
|
4 |
5 |
if (@_) |
|
420
|
3 |
3 |
if (@_) |
|
423
|
0 |
3 |
if ($arg >= 4096) |
|
443
|
3 |
0 |
$v >= 4 ? : |
|
|
0 |
3 |
$v >= 6 ? : |
|
449
|
2 |
1 |
if (@_) |
|
452
|
0 |
2 |
if ($arg < 0) |
|
470
|
2 |
1 |
if (@_) |
|
473
|
0 |
2 |
if (length $arg == 6) { } |
|
|
0 |
2 |
elsif (length $arg == 12) { } |
|
|
2 |
0 |
elsif (length $arg == 17) { } |
|
479
|
0 |
2 |
unless ($arg =~ / \A (?: [0-9A-F]{2} ) ([-:]) [0-9A-F]{2}
(?: \1 [0-9A-F]{2} ){4}
\z /imosx) |
|
509
|
1 |
0 |
if ($low < 3967729664) { } |
|
517
|
1 |
0 |
if ($hi < 239985198) { } |
|
534
|
1 |
1 |
if (@_) |
|
542
|
2 |
0 |
if ($low >= 327237632) { } |
|
550
|
2 |
0 |
if ($hi >= 28450258) { } |
|
602
|
5 |
0 |
unless (defined $uuid_const{$id}) |