| blib/lib/Data/Compare.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 43 | 63 | 68.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 123 | 1151 | 1250 | 20 | ref $x and exists $Data::Compare::been_there{"$x-$xpos-$xparent"} |
| 2401 | 14 | 6 | ref $x and exists $Data::Compare::been_there{"$x-$xpos-$xparent"} and $Data::Compare::been_there{"$x-$xpos-$xparent"} > 1 | |
| 1156 | 1245 | 14 | ref $y and exists $Data::Compare::been_there{"$y-$ypos-$yparent"} | |
| 2401 | 14 | 0 | ref $y and exists $Data::Compare::been_there{"$y-$ypos-$yparent"} and $Data::Compare::been_there{"$y-$ypos-$yparent"} > 1 | |
| 140 | 1264 | 1151 | 0 | exists $handler{$refx} and exists $handler{$refx}{$refy} |
| 1259 | 1156 | 0 | exists $handler{$refy} and exists $handler{$refy}{$refx} | |
| 147 | 6 | 0 | 1145 | defined $x and defined $y |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 28 | 0 | 0 | 27 | &tainted(scalar getcwd()) or not chdir $cwd |
| 63 | 0 | 0 | 28 | not defined $type1 or ref $type1 ne "" |
| 0 | 0 | 28 | not defined $type1 or ref $type1 ne "" or not defined $type2 | |
| 0 | 0 | 28 | not defined $type1 or ref $type1 ne "" or not defined $type2 or ref $type2 ne "" | |
| 78 | 0 | 3 | 0 | ref $this || $this |
| 89 | 5 | 2 | 0 | $#_ == 1 or $#_ == -1 |
| 90 | 5 | 1 | 1 | shift() || $self->{'x'} |
| 91 | 5 | 1 | 1 | shift() || $self->{'y'} |
| 97 | 1066 | 7 | 0 | $#_ == 1 or $#_ == 2 |
| 123 | 6 | 0 | 2415 | 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 |
| 140 | 1264 | 0 | 1151 | $refx || $refy |
| 4 | 18 | 1220 | $refx eq "SCALAR" or $refx eq "REF" | |
| 149 | 0 | 2 | 4 | defined $x || defined $y |
| 198 | 2 | 0 | 2 | $type eq "SCALAR" or $type eq "REF" |