| line |
true |
false |
branch |
|
20
|
13 |
0 |
unless ($use_m) |
|
24
|
13 |
0 |
unless $ENV{'CLONE_CHOOSE_NO_MODULE_RUNTIME'} |
|
28
|
0 |
0 |
if @imports |
|
30
|
0 |
0 |
if $@ |
|
41
|
1 |
1 |
if ($ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'}) |
|
45
|
0 |
1 |
unless $b{$favourite} |
|
51
|
1 |
2 |
ref $rout ? : |
|
|
1 |
2 |
unless eval {
do {
&$use_m($pkg, ref $rout ? $rout->[0] : ());
1
}
} |
|
53
|
0 |
2 |
ref $rout ? : |
|
54
|
0 |
2 |
unless $fn |
|
68
|
0 |
13 |
unless $name eq 'clone' |
|
70
|
7 |
6 |
if ($ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'}) |
|
74
|
0 |
7 |
unless $b{$favourite} |
|
81
|
6 |
12 |
ref $rout ? : |
|
|
7 |
11 |
unless eval {
do {
&$use_m($pkg, ref $rout ? $rout->[0] : ());
1
}
} |
|
83
|
0 |
11 |
ref $rout ? : |
|
84
|
0 |
11 |
unless $fn |
|
100
|
13 |
0 |
unless grep {/^clone$/;} @params |
|
104
|
1 |
13 |
if ($param =~ /^:(.*)$/) { } |
|
|
13 |
0 |
elsif ($param eq 'clone') { } |
|
108
|
0 |
1 |
if $ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'} and $ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'} ne $favourite |
|
113
|
0 |
1 |
unless $b{$favourite} |
|
119
|
2 |
11 |
unless $fn |
|
125
|
0 |
11 |
if @params |
|
141
|
0 |
0 |
if ($ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'}) |
|
144
|
0 |
0 |
unless $backends{$favourite} |