| blib/lib/Term/ReadLine/Perl5/Common.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 8 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 54 | 2 | 0 | $_[0] >= 97 && $_[0] <= 122 ? : |
| 71 | 0 | 0 | if $prefix eq '' or $prefix eq substr($fields[0], 0, length $prefix) |
| 135 | 8 | 36 | if ($key =~ s/^$regex//) |
| 157 | 0 | 2 | unless defined $function_name |