Branch Coverage

blib/lib/Module/CoreList/Utils.pm
Criterion Covered Total %
branch 13 28 46.4


line true false branch
12 1 1 if eval { do { $perl->isa("Module::CoreList::Utils") } }
13 0 0 unless $perl or exists $utilities{$perl}
24 0 0 substr($Module::CoreList::released{$b}, 0, 1) eq '?' ? :
0 3486 substr($Module::CoreList::released{$b}, 0, 1) eq '?' ? :
0 3486 substr($Module::CoreList::released{$a}, 0, 1) eq '?' ? :
29 3 2 if eval { do { $util->isa("Module::CoreList::Utils") } }
35 0 0 if exists $utilities{$_}{$util}
36 0 5 $version ? :
43 0 2 unless @perls
49 0 3 unless @perls
65 0 0 if eval { do { $util->isa("Module::CoreList::Utils") } }
66 0 0 unless my(@perls) = (sort {$a cmp $b;} first_release_raw($util))
1940 30 214 unless $version >= "5.01"
1946 39 175 if ($padded ne $version and $version == $padded)