| blib/lib/Clone/Choose.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % | 
| condition | 3 | 7 | 42.8 | 
| line | l | !l | condition | 
|---|---|---|---|
| 24 | 0 | 13 | eval 'use Module::Runtime (); 1;' and $use_m = 'Module::Runtime'->can('use_module') | 
| line | !l | l&&!r | l&&r | condition | 
|---|---|---|---|---|
| 108 | 1 | 0 | 0 | $ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'} and $ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'} ne $favourite | 
| line | l | !l | condition | 
|---|---|---|---|
| 32 | 13 | 0 | $use_m ||= sub { my($pkg, @imports) = @_; my $use_stmt = "use $pkg"; $use_stmt = join(' ', $use_stmt, @imports) if @imports; eval $use_stmt; die $@ if $@; 1; } |