blib/lib/Clone/Choose.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 5 | 7 | 71.4 |
line | l | !l | condition |
---|---|---|---|
24 | 12 | 14 | eval 'use Module::Runtime (); 1;' and $use_m = 'Module::Runtime'->can('use_module') |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
106 | 1 | 0 | 0 | $ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'} and $ENV{'CLONE_CHOOSE_PREFERRED_BACKEND'} ne $favourite |
line | l | !l | condition |
---|---|---|---|
32 | 14 | 12 | $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; } |