| line |
true |
false |
branch |
|
20
|
26 |
0 |
unless ($use_m) |
|
24
|
26 |
0 |
unless $ENV{'CLONE_CHOOSE_NO_MODULE_RUNTIME'} |
|
28
|
8 |
16 |
if @imports |
|
30
|
8 |
16 |
if $@ |
|
41
|
4 |
4 |
if ($ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'}) |
|
45
|
0 |
4 |
unless $b{$favourite} |
|
51
|
4 |
8 |
ref $rout ? : |
|
|
4 |
8 |
unless eval {
do {
&$use_m($pkg, ref $rout ? $rout->[0] : ());
1
}
} |
|
53
|
0 |
8 |
ref $rout ? : |
|
54
|
0 |
8 |
unless $fn |
|
66
|
0 |
25 |
unless $name eq 'clone' |
|
68
|
12 |
13 |
if ($ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'}) |
|
72
|
0 |
12 |
unless $b{$favourite} |
|
79
|
12 |
25 |
ref $rout ? : |
|
|
12 |
25 |
unless eval {
do {
&$use_m($pkg, ref $rout ? $rout->[0] : ());
1
}
} |
|
81
|
0 |
25 |
ref $rout ? : |
|
82
|
0 |
25 |
unless $fn |
|
98
|
26 |
0 |
unless grep {/^clone$/;} @params |
|
102
|
1 |
26 |
if ($param =~ /^:(.*)$/) { } |
|
|
25 |
1 |
elsif ($param eq 'clone') { } |
|
106
|
0 |
1 |
if $ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'} and $ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'} ne $favourite |
|
111
|
0 |
1 |
unless $b{$favourite} |
|
117
|
0 |
25 |
unless $fn |
|
123
|
0 |
25 |
if @params |
|
139
|
2 |
2 |
if ($ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'}) |
|
142
|
0 |
2 |
unless $backends{$favourite} |