| line |
true |
false |
branch |
|
14
|
2 |
4 |
&reftype($_[0]) || !1 ? : |
|
27
|
9 |
8 |
if ($self->{'same'}) { } |
|
28
|
1 |
8 |
unless $base_bless eq ref $_ |
|
31
|
7 |
1 |
unless $r =~ /HASH|ARRAY|SCALAR/ |
|
36
|
1 |
15 |
unless my $check = $isa{$f} |
|
38
|
15 |
18 |
if $_ eq $f |
|
39
|
3 |
15 |
if $check->isa($_) |
|
42
|
6 |
2 |
scalar keys %isa == 1 ? : |
|
|
8 |
2 |
$self->{'blessed'} ? : |
|
51
|
10 |
70 |
unless defined $merger |
|
55
|
2 |
37 |
if $new_ref ne 'HASH' |
|
59
|
19 |
20 |
$self->{'unique_hash'} ? : |
|
61
|
13 |
18 |
$merger_ref eq 'ARRAY' ? : |
|
|
39 |
31 |
$merger_ref eq 'HASH' ? : |
|
63
|
1 |
10 |
$_[0] < $_[1] ? : |
|
66
|
9 |
2 |
$self->{'unique_array'} ? : |
|
68
|
11 |
2 |
$new_ref eq 'ARRAY' ? : |
|
74
|
9 |
19 |
if ($r eq 'ARRAY') |
|
79
|
14 |
27 |
!$_ || exists $u{$_} ? : |
|
|
41 |
7 |
$x eq 'SCALAR' ? : |
|
81
|
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 |
|
95
|
21 |
6 |
$x ne 'SCALAR' && $x eq &reftype($z{$_}) ? : |
|
|
27 |
4 |
exists $z{$_} ? : |