| blib/lib/AnyEvent/Util/idna.pl | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 20 | 85.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 7 | 5 | $firsttime ? : |
| 42 | 3 | 2 | if $b and $h < @input |
| 47 | 0 | 9 | unless $m - $n <= (2147483647 - $delta) / ($h + 1) |
| 54 | 11 | 14 | if $c < $n |
| 58 | 9 | 16 | if ($c == $n) |
| 64 | 9 | 20 | if $q < $t |
| 94 | 1 | 1 | if ($input =~ /^(.*?)-([^-]*)$/x) |
| 98 | 0 | 1 | if $output =~ /[^\x00-\x7f]/ |
| 107 | 0 | 9 | unless (my $digit = index('abcdefghijklmnopqrstuvwxyz0123456789', substr($input, 0, 1, ''))) >= 0 |
| 114 | 3 | 6 | if $digit < $t |