| blib/lib/Lingua/TR/Numbers.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 22 | 38 | 57.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 69 | 0 | 0 | 1 | defined $x and length $x |
| 110 | 1 | 1 | 76 | defined $x and length $x |
| 153 | 37 | 0 | 11 | defined $x && length $x |
| 162 | 38 | 0 | 10 | defined $x and length $x |
| 172 | 3 | 0 | 65 | defined $x and length $x |
| 3 | 0 | 65 | defined $x and length $x and $x =~ /\A\d+\z/msx | |
| 193 | 0 | 0 | 7 | defined $x and length $x |
| 0 | 0 | 7 | defined $x and length $x and $x =~ /\A\d+\z/msx | |
| 208 | 2 | 1 | 4 | $chunks[-1][1] == 0 and $chunks[-1][0] < 100 |
| 215 | 7 | 0 | 0 | $and and @chunks > 1 |
| 239 | 2 | 5 | 0 | $multnum == 1 && $raw == 1 |
| line | l | !l | condition |
|---|---|---|---|
| 33 | 0 | 2 | $ENV{'DEBUG'} || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 103 | 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; } ->() |