| lib/Term/ReadLine/Perl5/Common.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 8 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 55 | 634 | 71 | $_[0] >= 97 && $_[0] <= 122 ? : |
| 72 | 0 | 0 | if $prefix eq '' or $prefix eq substr($fields[0], 0, length $prefix) |
| 136 | 8 | 36 | if ($key =~ s/^$regex//) |
| 158 | 1 | 3816 | unless defined $function_name |