| line |
true |
false |
branch |
|
22
|
1 |
32 |
unless _is_identical($left, $right) |
|
30
|
131 |
77 |
if (not exists $current->{$key}) { } |
|
|
77 |
0 |
elsif (my $merger = $mergers->{$key}) { } |
|
|
0 |
0 |
elsif ($merger = $mergers->{':default'}) { } |
|
59
|
3 |
5 |
if (not exists $left->{$key}) { } |
|
|
1 |
4 |
elsif (_is_identical($left->{$key}, $right->{$key})) { } |
|
|
2 |
2 |
elsif (ref $left->{$key} eq 'HASH' and ref $right->{$key} eq 'HASH') { } |
|
79
|
0 |
0 |
if ($name =~ /^x_/) |
|
80
|
0 |
0 |
if (ref $left eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $left eq 'HASH') { } |
|
97
|
1 |
3 |
if (not exists $left->{$key}) { } |
|
102
|
2 |
3 |
if $subkey eq 'prereqs' |
|
103
|
0 |
3 |
if (not exists $left->{$key}{$subkey}) { } |
|
108
|
2 |
1 |
if do {
BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x15"}
$left->{$key}{$subkey} ne $right->{$key}{$subkey}
} |
|
164
|
0 |
4 |
unless exists $arguments{'default_version'} |
|
166
|
2 |
2 |
unless $arguments{'extra_mappings'} |
|
168
|
0 |
3 |
if (ref $mapping{$key} eq 'HASH') { } |
|
194
|
100 |
16 |
if (ref $orig->{$key} eq 'CODE') { } |
|
|
13 |
3 |
elsif (ref $value eq 'HASH') { } |
|
|
3 |
0 |
elsif ($coderef_for{$value}) { } |
|
218
|
1 |
30 |
if (&blessed($next) and $next->isa('CPAN::Meta')) { } |
|
|
30 |
0 |
elsif (ref $next eq 'HASH') { } |