Branch Coverage

lib/Term/ReadLine/Perl5/OO/Keymap.pm
Criterion Covered Total %
branch 17 54 31.4


line true false branch
51 2 0 unless $loc_str
61 0 2 if (@keys)
63 0 0 if (defined $func_tuple and $func_tuple->[0] eq 'PrefixMeta') { }
67 0 0 if (defined $func_tuple and $^W)
79 0 0 if (defined $func_tuple and $func_tuple->[0] ne 'F_PrefixMeta' and $function ne 'PrefixMeta')
81 0 0 if ($^W)
92 1 1 $function =~ /Term::ReadLine::Perl5::OO::Keymap/ ? :
164 2 0 unless $location_msg
170 0 2 if ($keyseq =~ /"((?:\\.|[^\\])*)"/s) { }
177 0 2 if ($keyseq =~ s/\b(M|Meta)-//i)
184 0 2 if ($new_keyseq =~ /^(space|spc)$/i) { }
0 2 elsif ($new_keyseq =~ /^(rubout|del)$/i) { }
0 2 elsif ($new_keyseq =~ /^tab$/i) { }
0 2 elsif ($new_keyseq =~ /^(return|ret)$/i) { }
0 2 elsif ($new_keyseq =~ /^(newline|lfd)$/i) { }
1 1 elsif ($new_keyseq =~ /^(escape|esc)$/i) { }
0 1 elsif (length $new_keyseq > 1) { }
191 0 0 if $^W
195 0 2 if $is_ctrl
200 0 2 if $DEBUG
224 0 0 if $ord <= 26
225 0 0 if $ord >= 33 and $ord < 127
226 0 0 if $ord == 127
227 0 0 if $ord == 32
228 0 0 if $ord == 27
254 0 0 unless defined $command_name
258 0 0 if $command_name eq 'PrefixMeta'