| line |
true |
false |
branch |
|
17
|
2496 |
11 |
$delta_from ? : |
|
18
|
265 |
2242 |
unless $changed |
|
32
|
0 |
0 |
substr($released{$b}, 0, 1) eq '?' ? : |
|
|
0 |
7300 |
substr($released{$b}, 0, 1) eq '?' ? : |
|
|
0 |
7300 |
substr($released{$a}, 0, 1) eq '?' ? : |
|
39
|
0 |
4 |
if ($what eq "dumpinc") |
|
45
|
0 |
5 |
if $dumpinc |
|
51
|
6 |
3 |
if defined $_[1] and $_[1] =~ /\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z/ and &_looks_like_invocant($_[0]) |
|
57
|
1351 |
74 |
if defined $version{$_}{$module} |
|
58
|
5 |
86 |
$version ? : |
|
65
|
0 |
4 |
unless @perls |
|
71
|
4 |
49 |
unless @perls |
|
76
|
4 |
1 |
if &_looks_like_invocant($_[0]) |
|
78
|
2 |
3 |
@_ ? : |
|
83
|
1918 |
514080 |
if $k =~ /$regex/ |
|
90
|
3 |
0 |
if &_looks_like_invocant($_[0]) |
|
92
|
2 |
1 |
if defined $v and defined $version{$v} |
|
97
|
0 |
1 |
if defined $_[1] and $_[1] =~ /\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z/ and &_looks_like_invocant($_[0]) |
|
100
|
3 |
0 |
unless $module and exists $deprecated{$perl_version}{$module} |
|
105
|
0 |
0 |
if defined $_[1] and $_[1] =~ /\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z/ and &_looks_like_invocant($_[0]) |
|
106
|
0 |
2 |
unless my $module = shift() |
|
108
|
1 |
1 |
unless @perls |
|
124
|
1 |
0 |
if defined $_[1] and $_[1] =~ /\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z/ and &_looks_like_invocant($_[0]) |
|
126
|
0 |
34 |
unless my(@perls) = (sort {$a cmp $b;} first_release_raw($mod)) |
|
133
|
0 |
0 |
if &_looks_like_invocant($_[0]) |
|
145
|
0 |
0 |
defined $left->{$lib} ? : |
|
|
0 |
0 |
exists $left->{$lib} ? : |
|
148
|
0 |
0 |
defined $right->{$lib} ? : |
|
|
0 |
0 |
exists $right->{$lib} ? : |
|
151
|
0 |
0 |
if $lhs eq $rhs |
|
155
|
0 |
0 |
exists $left->{$lib} ? : |
|
|
0 |
0 |
exists $right->{$lib} ? : |
|
20639
|
14 |
13 |
if defined $_[1] and $_[1] =~ /^\w/ and &_looks_like_invocant($_[0]) |
|
20641
|
41 |
2 |
@_ > 0 ? : |
|
20642
|
39 |
4 |
@_ > 0 ? : |
|
20646
|
11 |
32 |
if not defined $first_release or $first_release > $perl_version |
|
20650
|
4 |
28 |
if defined $final_release and $perl_version >= $final_release |
|
20658
|
21 |
7 |
if (defined $module_version) |
|
20660
|
1 |
20 |
unless (defined $module_version_object) |
|
20673
|
478 |
20 |
if defined $rel |
|
20677
|
91 |
291 |
if $prn < $first_release |
|
20678
|
0 |
291 |
if $prn > $perl_version |
|
20680
|
235 |
56 |
unless defined(my $next_module_version = $delta{$prn}{'changed'}{$module}) |
|
20681
|
16 |
40 |
if eval {
do {
"version"->parse($next_module_version) >= $module_version_object
}
} |
|
20686
|
5 |
2 |
unless defined $final_release |
|
22926
|
145 |
4550 |
unless $version >= "5.006" |
|
22932
|
820 |
3730 |
if ($padded ne $version and $version == $padded) |