| line |
true |
false |
branch |
|
17
|
2 |
12 |
if ($version < 10) { } |
|
22
|
2 |
0 |
if ($version > $this_version) |
|
37
|
27 |
9 |
if (defined $$args[0]) |
|
40
|
15 |
12 |
if (version::is_lax($version) and 'version'->parse($version) >= 10) |
|
45
|
27 |
9 |
if ($requested_perl_version) |
|
50
|
11 |
16 |
if ($@) |
|
55
|
0 |
36 |
unless @_ |
|
60
|
0 |
25 |
if ($class ne 'perl5') |
|
64
|
0 |
25 |
if @_ |
|
66
|
14 |
0 |
$arg =~ /^-(\w+)$/ ? : |
|
|
11 |
14 |
!defined($arg) ? : |
|
70
|
0 |
25 |
unless eval "require $subclass; 1" |
|
78
|
0 |
25 |
scalar @_ ? : |
|
85
|
1 |
66 |
@imports && version::is_lax($imports[0]) ? : |
|
87
|
24 |
43 |
@imports && ref $imports[0] eq 'ARRAY' ? : |
|
90
|
1 |
66 |
unless eval "require $name; 1" |
|
91
|
1 |
65 |
if $version |