| line |
true |
false |
branch |
|
27
|
43 |
1067 |
unless defined $b |
|
28
|
10 |
1057 |
if &blessed($b) and $method = _overloaded_smartmatch($b) |
|
30
|
29 |
1028 |
if (&blessed($b) and not $b->isa("Regexp")) |
|
37
|
3 |
1025 |
if $refb and $seen->{$refb}++ |
|
39
|
118 |
907 |
if (ref $b eq "ARRAY") |
|
40
|
63 |
55 |
if (ref $a eq "ARRAY") |
|
41
|
10 |
53 |
unless @$a == @$b |
|
43
|
10 |
684 |
unless match($a->[$i], $b->[$i], $seen) |
|
48
|
17 |
38 |
if ref $a eq "HASH" |
|
49
|
6 |
32 |
if ref $a eq "Regexp" |
|
50
|
9 |
23 |
unless defined $a |
|
54
|
82 |
825 |
if (ref $b eq "HASH") |
|
55
|
27 |
55 |
if ref $a eq "HASH" |
|
58
|
24 |
31 |
if ref $a eq "ARRAY" |
|
59
|
10 |
21 |
if ref $a eq "Regexp" |
|
60
|
4 |
17 |
unless defined $a |
|
64
|
54 |
771 |
if (ref $b eq "CODE") |
|
65
|
14 |
40 |
if ref $a eq "ARRAY" |
|
66
|
14 |
26 |
if ref $a eq "HASH" |
|
70
|
31 |
740 |
if (ref $b eq "Regexp") |
|
71
|
9 |
22 |
if ref $a eq "ARRAY" |
|
72
|
9 |
13 |
if ref $a eq "HASH" |
|
76
|
3 |
737 |
if &blessed($a) and $method = _overloaded_smartmatch($a) |
|
77
|
5 |
732 |
unless defined $a |
|
78
|
135 |
597 |
if _is_number($b) |
|
79
|
10 |
587 |
if _is_number($a) and &looks_like_number($b) |
|
86
|
11 |
1318 |
if ref $value |
|
88
|
158 |
1160 |
if $flags & 12288 |
|
105
|
32 |
46 |
if &re::is_regexp($obj) |
|
107
|
0 |
46 |
if ($obj->isa("Type::Tiny")) |
|
111
|
13 |
33 |
if (my $match = $obj->can("MATCH")) |
|
115
|
0 |
33 |
if ($] lt '5.010') { } |
|
123
|
0 |
33 |
exists &$name ? : |
|
125
|
0 |
33 |
if defined $overload |