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