| line |
true |
false |
branch |
|
14
|
2 |
4 |
&reftype($_[0]) || !1 ? : |
|
27
|
9 |
6 |
if ($self->{'same'}) { } |
|
28
|
1 |
8 |
unless $base_bless eq ref $_ |
|
31
|
6 |
0 |
unless $r =~ /HASH|ARRAY|SCALAR/ |
|
36
|
0 |
14 |
unless my $check = $isa{$f} |
|
39
|
6 |
2 |
scalar keys %isa == 1 ? : |
|
|
8 |
1 |
$self->{'blessed'} ? : |
|
48
|
8 |
66 |
unless defined $merger |
|
52
|
2 |
34 |
if $new_ref ne 'HASH' |
|
56
|
19 |
17 |
$self->{'unique_hash'} ? : |
|
58
|
13 |
17 |
$merger_ref eq 'ARRAY' ? : |
|
|
36 |
30 |
$merger_ref eq 'HASH' ? : |
|
60
|
1 |
10 |
$_[0] < $_[1] ? : |
|
63
|
9 |
2 |
$self->{'unique_array'} ? : |
|
65
|
11 |
2 |
$new_ref eq 'ARRAY' ? : |
|
71
|
9 |
19 |
if ($r eq 'ARRAY') |
|
76
|
14 |
27 |
!$_ || exists $u{$_} ? : |
|
|
41 |
7 |
$x eq 'SCALAR' ? : |
|
78
|
1 |
1 |
$x1 eq $x2 ? : |
|
|
1 |
2 |
$x1 ? : |
|
|
2 |
3 |
do {
($x1, $x2) = (&reftype($n->[$i]), &reftype($m->[$i]));
$c == 0
} ? : |
|
|
5 |
19 |
if $c != 2 |
|
92
|
21 |
6 |
$x ne 'SCALAR' && $x eq &reftype($z{$_}) ? : |
|
|
27 |
4 |
exists $z{$_} ? : |