| line |
true |
false |
branch |
|
25
|
21 |
8 |
if ($EXPORT{$arg}) |
|
30
|
8 |
0 |
if ($arg eq "warn" or $arg eq "backends") |
|
41
|
0 |
21 |
unless my $sub = $subs->{$name} || $class->can($name) |
|
58
|
0 |
5 |
$ENV{'TEST2_UUID_NO_WARN'} ? : |
|
59
|
0 |
1 |
$ENV{'TEST2_UUID_BACKEND'} ? : |
|
62
|
4 |
13 |
if $GEN_UUID_CACHE{$backend} |
|
67
|
0 |
13 |
unless $class->can($meth) |
|
69
|
0 |
13 |
unless $GEN_UUID_CACHE{$backend} = $class->$meth($warn) |
|
82
|
0 |
4 |
unless eval {
do {
require UUID;
1
}
} |
|
84
|
0 |
4 |
unless (eval {
do {
"UUID"->VERSION("0.35");
1
}
}) |
|
85
|
0 |
0 |
if $warn |
|
103
|
0 |
3 |
unless eval {
do {
require Data::UUID::MT;
1
}
} |
|
110
|
3 |
0 |
if (eval {
do {
require UUID::Tiny;
1
}
}) |
|
124
|
0 |
3 |
unless eval {
do {
require UUID::Tiny;
1
}
} |
|
126
|
0 |
3 |
if $warn |
|
141
|
0 |
3 |
unless eval {
do {
require Data::UUID;
1
}
} |
|
143
|
0 |
3 |
if $warn |
|
149
|
61 |
0 |
if $UG and $UG_PID and $UG_PID == $$ |
|
167
|
40 |
0 |
if $in and $in =~ /^[A-F0-9]{8}-[A-F0-9]{4}-[A-F0-9]{4}-[A-F0-9]{4}-[A-F0-9]{12}$/i |