Branch Coverage

lib/Class/Usul/TraitFor/Prompting.pm
Criterion Covered Total %
branch 15 34 44.1


line true false branch
158 0 2 $opts->{'quit'} ? :
159 0 2 $opts->{'multiline'} ? :
162 0 2 if (defined $opts->{'width'})
170 0 2 $opts->{'multiline'} ? :
172 0 2 $opts->{'noecho'} ? :
175 0 0 if $opts->{'quit'} and defined $result and lc $result eq 'q'
185 1 0 '+' eq substr($prompt, 0, 1) ? :
186 0 1 $no_lead ? :
199 0 1 unless $opt =~ / \A \d+ \z /mx
215 1 0 $opts->{'default'} ? :
216 0 1 $opts->{'quit'} ? :
217 0 1 $quit ? :
221 0 1 if (defined $opts->{'width'})
229 0 1 $opts->{'newline'} ? :
232 0 1 if $quit and $result =~ / \A (?: $quit | [\e] ) /mix
233 1 0 if $result =~ / \A $yes /mix
234 0 0 if $result =~ / \A $no /mix