| line |
true |
false |
branch |
|
25
|
1 |
0 |
if require Exporter |
|
54
|
2 |
1 |
unless $ref_type |
|
56
|
0 |
1 |
if exists $Class::MakeMethods::Utility::Ref::CopiedItems{$source} |
|
59
|
1 |
0 |
if ("$source" =~ /^\Q$ref_type\E\=([A-Z]+)\(0x[0-9a-f]+\)$/) |
|
65
|
0 |
1 |
if ($ref_type eq 'SCALAR') { } |
|
|
0 |
1 |
elsif ($ref_type eq 'REF') { } |
|
|
1 |
0 |
elsif ($ref_type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($ref_type eq 'ARRAY') { } |
|
77
|
1 |
0 |
if $class_name |
|
109
|
0 |
0 |
unless ref $A or ref $B |
|
112
|
0 |
0 |
unless ref $A |
|
113
|
0 |
0 |
unless ref $B |
|
116
|
0 |
0 |
if "$A" eq "$B" |
|
119
|
0 |
0 |
if $Class::MakeMethods::Utility::Ref::ComparedItems{$A}++ > 2 and $Class::MakeMethods::Utility::Ref::ComparedItems{$B}++ > 2 |
|
124
|
0 |
0 |
if not $ignore_class and $ref_A ne $ref_B |
|
127
|
0 |
0 |
"$A" =~ /^\Q$ref_A\E\=([A-Z]+)\(0x[0-9a-f]+\)$/ ? : |
|
128
|
0 |
0 |
"$B" =~ /^\Q$ref_B\E\=([A-Z]+)\(0x[0-9a-f]+\)$/ ? : |
|
129
|
0 |
0 |
if $type_A ne $type_B |
|
131
|
0 |
0 |
if ($type_A eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type_A eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type_A eq 'SCALAR' or $type_A eq 'REF') { } |
|
134
|
0 |
0 |
if $#kA != $#kB |
|
141
|
0 |
0 |
if $#$A != $#$B |