| blib/lib/Struct/Match.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 24 | 24 | 100.0 |
| line | l | !l | condition |
|---|---|---|---|
| 65 | 28 | 1 | $_[2] and $o eq 'CHECK' and 1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 22 | 1 | 1 | 12 | exists $_[0]{$_} and exists $_[1]{$_} |
| 1 | 6 | 6 | exists $_[0]{$_} and exists $_[1]{$_} and match($_[0]{$_}, $_[1]{$_}) | |
| 35 | 9 | 1 | 2 | grep({match($_[0][$_], $_[1][$_]) if exists $_[0][$_];} 0 .. $#{$_[1];}) == @{$_[0];} && $#{$_[0];} == $#{$_[1];} |
| 54 | 45 | 38 | 29 | $r and exists $STRUCT{$r} && $r || 'CHECK' |
| 65 | 27 | 1 | 1 | $_[2] and $o eq 'CHECK' |
| line | l | !l | condition |
|---|---|---|---|
| 22 | 6 | 7 | exists $_[0]{$_} and exists $_[1]{$_} and match($_[0]{$_}, $_[1]{$_}) or return |
| 54 | 42 | 25 | exists $STRUCT{$r} && $r || 'CHECK' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 65 | 24 | 1 | 28 | $STRUCT{$o}->($_[0], $_[1]) or $_[2] and $o eq 'CHECK' and 1 |