Branch Coverage

blib/lib/Module/CoreList.pm
Criterion Covered Total %
branch 62 94 65.9


line true false branch
17 2485 11 $delta_from ? :
18 265 2231 unless $changed
32 0 0 substr($released{$b}, 0, 1) eq '?' ? :
0 7374 substr($released{$b}, 0, 1) eq '?' ? :
0 7374 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 1346 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 1911 512146 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} ? :
20493 14 13 if defined $_[1] and $_[1] =~ /^\w/ and &_looks_like_invocant($_[0])
20495 41 2 @_ > 0 ? :
20496 39 4 @_ > 0 ? :
20500 11 32 if not defined $first_release or $first_release > $perl_version
20504 4 28 if defined $final_release and $perl_version >= $final_release
20512 21 7 if (defined $module_version)
20514 1 20 unless (defined $module_version_object)
20527 478 20 if defined $rel
20531 91 291 if $prn < $first_release
20532 0 291 if $prn > $perl_version
20534 235 56 unless defined(my $next_module_version = $delta{$prn}{'changed'}{$module})
20535 16 40 if eval { do { "version"->parse($next_module_version) >= $module_version_object } }
20540 5 2 unless defined $final_release
22773 145 4530 unless $version >= "5.006"
22779 820 3710 if ($padded ne $version and $version == $padded)