| blib/lib/Lingua/TR/Numbers.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 19 | 33 | 57.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 66 | 0 | 0 | 1 | defined $x and length $x |
| 107 | 1 | 1 | 76 | defined $x and length $x |
| 150 | 37 | 0 | 11 | defined $x && length $x |
| 159 | 38 | 0 | 10 | defined $x and length $x |
| 169 | 3 | 0 | 65 | defined $x and length $x |
| 3 | 0 | 65 | defined $x and length $x and $x =~ /\A\d+\z/msx | |
| 190 | 0 | 0 | 7 | defined $x and length $x |
| 0 | 0 | 7 | defined $x and length $x and $x =~ /\A\d+\z/msx | |
| 205 | 2 | 1 | 4 | $chunks[-1][1] == 0 and $chunks[-1][0] < 100 |
| 212 | 7 | 0 | 0 | $and and @chunks > 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 100 | 1 | 0 | 0 | $CARD2ORD{$end} || sub { my $val = $CARD2ORDTR{$ok}; return $end . $val if $step == 1; my $letter = (split(//, $val, 0))[-1]; return $end . $letter . $val; } ->() |