| line |
true |
false |
branch |
|
31
|
0 |
0 |
if ($version < 10) { } |
|
36
|
0 |
0 |
if ($version > $this_version) |
|
52
|
0 |
0 |
if (defined $$args[0]) |
|
55
|
0 |
0 |
if (version::is_lax($version) and 'version'->parse($version) >= 10) |
|
60
|
0 |
0 |
if ($requested_perl_version) |
|
65
|
0 |
0 |
if ($@) |
|
70
|
0 |
0 |
unless @_ |
|
75
|
0 |
0 |
if ($class ne 'perl5') |
|
79
|
0 |
0 |
if @_ |
|
81
|
0 |
0 |
$arg =~ /^-(\w+)$/ ? : |
|
|
0 |
0 |
!defined($arg) ? : |
|
85
|
0 |
0 |
unless eval "require $subclass; 1" |
|
93
|
1 |
0 |
scalar @_ ? : |
|
100
|
0 |
1 |
@imports && version::is_lax($imports[0]) ? : |
|
102
|
1 |
0 |
@imports && ref $imports[0] eq 'ARRAY' ? : |
|
106
|
0 |
1 |
unless eval "use $name $version (); 1" |
|
107
|
0 |
1 |
if $arguments and not @$arguments |
|
108
|
0 |
1 |
unless my $importee = $name->can('import') |
|
109
|
0 |
1 |
unless $arguments |