Branch Coverage

blib/lib/Clone/Choose.pm
Criterion Covered Total %
branch 30 52 57.6


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}