| line |
true |
false |
branch |
|
28
|
27 |
0 |
unless &tainted(scalar getcwd()) or not chdir $cwd |
|
46
|
0 |
88 |
if $file eq "Data::Compare::Plugins::Scalar-Properties" |
|
48
|
74 |
14 |
if $requires eq 1 |
|
51
|
0 |
14 |
if (ref $requires ne "ARRAY") |
|
56
|
0 |
14 |
if (ref((@{$requires;})[0]) ne "ARRAY") |
|
61
|
14 |
14 |
unless defined $type2 |
|
63
|
0 |
28 |
if (not defined $type1 or ref $type1 ne '' or not defined $type2 or ref $type2 ne '') { } |
|
|
0 |
28 |
elsif (defined $cruft) { } |
|
|
0 |
28 |
elsif (ref $handler ne 'CODE') { } |
|
89
|
0 |
7 |
unless $#_ == 1 or $#_ == -1 |
|
97
|
0 |
1073 |
unless $#_ == 1 or $#_ == 2 |
|
102
|
7 |
1066 |
if (@_) |
|
110
|
6632 |
3052 |
unless $opts->{$_} |
|
115
|
1073 |
1348 |
unless (exists $opts->{'recursion_detector'}) |
|
121
|
1 |
2420 |
if $opts->{'recursion_detector'} == 99 |
|
123
|
6 |
2415 |
if (ref $x and exists $Data::Compare::been_there{"$x-$xpos-$xparent"} and $Data::Compare::been_there{"$x-$xpos-$xparent"} > 1 or ref $y and exists $Data::Compare::been_there{"$y-$ypos-$yparent"} and $Data::Compare::been_there{"$y-$ypos-$yparent"} > 1) { } |
|
130
|
1264 |
1151 |
if ref $x |
|
131
|
1259 |
1156 |
if ref $y |
|
135
|
4 |
2411 |
if ref $opts->{'ignore_hash_keys'} eq "ARRAY" |
|
140
|
0 |
2415 |
if (exists $handler{$refx} and exists $handler{$refx}{$refy}) { } |
|
|
0 |
2415 |
elsif (exists $handler{$refy} and exists $handler{$refy}{$refx}) { } |
|
|
1151 |
1264 |
elsif (not $refx || $refy) { } |
|
|
8 |
1256 |
elsif ($refx ne $refy) { } |
|
|
14 |
1242 |
elsif (&Scalar::Util::refaddr($x) == &Scalar::Util::refaddr($y)) { } |
|
|
22 |
1220 |
elsif ($refx eq 'SCALAR' or $refx eq 'REF') { } |
|
|
1127 |
93 |
elsif ($refx eq 'ARRAY') { } |
|
|
63 |
30 |
elsif ($refx eq 'HASH') { } |
|
|
2 |
28 |
elsif ($refx eq 'Regexp') { } |
|
|
0 |
28 |
elsif ($refx eq 'CODE') { } |
|
|
1 |
27 |
elsif ($refx eq 'GLOB') { } |
|
147
|
1145 |
6 |
if (defined $x and defined $y) { } |
|
161
|
1124 |
3 |
if ($#{$x;} == $#{$y;}) { } |
|
166
|
7 |
1132 |
unless _Compare($x->[$i], $y->[$i], {%{$opts;}, "xparent", $x, "xpos", $i, "yparent", $y, "ypos", $i}) |
|
177
|
7 |
56 |
unless scalar @kx == scalar @ky |
|
180
|
6 |
160 |
unless (exists $y->{$_}) |
|
184
|
7 |
153 |
unless _Compare($x->{$_}, $y->{$_}, {%{$opts;}, "xparent", $x, "xpos", $_, "yparent", $y, "ypos", $_}) |
|
198
|
21 |
6 |
if ($type eq 'HASH') { } |
|
|
2 |
4 |
elsif ($type eq 'ARRAY') { } |
|
|
2 |
2 |
elsif ($type eq 'SCALAR' or $type eq 'REF') { } |
|
|
1 |
1 |
elsif ($type eq 'GLOB') { } |
|
|
1 |
0 |
elsif ($type eq 'CODE') { } |
|
236
|
2 |
2 |
$_ eq '' ? : |
|
|
0 |
4 |
$_ eq '' ? : |
|
243
|
0 |
0 |
$_ eq '' ? : |