| blib/lib/Bijection.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 18 | 33.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 20 | 0 | 0 | 5031 | $id =~ /^\d+$/ || $id > 0 and $id += $COUNT |
| 21 | 0 | 12411 | 0 | do { $out .= $ALPHA[$id % $COUNT]; 1 } and $id = int $id / $COUNT |
| 27 | 0 | 0 | 12411 | defined $INDEX{$_} and do { $id = $id * $COUNT + $INDEX{$_}; 1 } |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 20 | 5031 | 0 | 0 | $id =~ /^\d+$/ || $id > 0 |
| 22 | 5031 | 0 | 0 | $out || $ALPHA[0] |
| 27 | 12411 | 0 | 0 | defined $INDEX{$_} and do { $id = $id * $COUNT + $INDEX{$_}; 1 } or croak("invalid character $_ in $out") |