| line |
true |
false |
branch |
|
23
|
1 |
28 |
unless _is_identical($left, $right) |
|
31
|
131 |
71 |
if (not exists $current->{$key}) { } |
|
|
71 |
0 |
elsif (my $merger = $mergers->{$key}) { } |
|
|
0 |
0 |
elsif ($merger = $mergers->{':default'}) { } |
|
60
|
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') { } |
|
80
|
0 |
0 |
if ($name =~ /^x_/) |
|
81
|
0 |
0 |
if (ref $left eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $left eq 'HASH') { } |
|
98
|
1 |
3 |
if (not exists $left->{$key}) { } |
|
103
|
1 |
3 |
if $subkey eq "prereqs" |
|
104
|
0 |
3 |
if (not exists $left->{$key}{$subkey}) { } |
|
109
|
2 |
1 |
if do {
BEGIN {${^WARNING_BITS} = "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55"}
$left->{$key}{$subkey} ne $right->{$key}{$subkey}
} |
|
165
|
0 |
4 |
unless exists $arguments{'default_version'} |
|
167
|
2 |
2 |
unless $arguments{'extra_mappings'} |
|
169
|
0 |
3 |
if (ref $mapping{$key} eq 'HASH') { } |
|
195
|
100 |
16 |
if (ref $orig->{$key} eq 'CODE') { } |
|
|
13 |
3 |
elsif (ref $value eq 'HASH') { } |
|
|
3 |
0 |
elsif ($coderef_for{$value}) { } |
|
219
|
1 |
30 |
if (builtin::blessed($next) and $next->isa('CPAN::Meta')) { } |
|
|
30 |
0 |
elsif (ref $next eq 'HASH') { } |