Branch Coverage

Test_Progs/nested_heading_prompt
Criterion Covered Total %
branch 6 86 6.9


line true false branch
16 0 1 if $Shell::POSIX::Select::DEBUG > 1 and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
24 0 1 if ($Shell::POSIX::Select::DEBUG > 4)
43 0 1 -t STDIN ? :
45 1 0 if (defined $Shell::POSIX::Select::menu) { }
56 0 1 if ($Shell::POSIX::Select::do_prompt[1])
61 0 0 if ($Shell::POSIX::Select::_extra_nl)
74 1 0 if ($Shell::POSIX::Select::dump_data) { }
89 0 0 unless (defined $Reply)
90 0 0 if defined "" and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
105 0 0 unless defined $Reply
109 0 0 if defined "" and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
112 0 0 if ($Reply eq '') { }
0 0 elsif ($Reply =~ /\D/) { }
0 0 elsif ($Reply < 1 or $Reply > $Shell::POSIX::Select::num_values) { }
114 0 0 if $Shell::POSIX::Select::U_WARN > 1
118 0 0 if $Shell::POSIX::Select::U_WARN > 0
123 0 0 if $Shell::POSIX::Select::U_WARN > 0
131 0 0 unless $Shell::POSIX::Select::bad
133 0 0 unless $Shell::POSIX::Select::bad
148 0 0 if $Shell::POSIX::Select::DEBUG > 1 and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
156 0 0 if ($Shell::POSIX::Select::DEBUG > 4)
175 0 0 -t STDIN ? :
177 0 0 if (defined $Shell::POSIX::Select::menu) { }
188 0 0 if ($Shell::POSIX::Select::do_prompt[2])
193 0 0 if ($Shell::POSIX::Select::_extra_nl)
206 0 0 if ($Shell::POSIX::Select::dump_data) { }
221 0 0 unless (defined $Reply)
222 0 0 if defined "" and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
230 0 0 if (-t STDIN)
237 0 0 unless defined $Reply
241 0 0 if defined "" and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
244 0 0 if ($Reply eq '') { }
0 0 elsif ($Reply =~ /\D/) { }
0 0 elsif ($Reply < 1 or $Reply > $Shell::POSIX::Select::num_values) { }
246 0 0 if $Shell::POSIX::Select::U_WARN > 1
250 0 0 if $Shell::POSIX::Select::U_WARN > 0
255 0 0 if $Shell::POSIX::Select::U_WARN > 0
263 0 0 unless $Shell::POSIX::Select::bad
265 0 0 unless $Shell::POSIX::Select::bad
289 0 0 if $Shell::POSIX::Select::DEBUG > 0
291 0 0 if ($Shell::POSIX::Select::dump_data)
322 0 0 if $Shell::POSIX::Select::DEBUG > 0
324 0 0 if ($Shell::POSIX::Select::dump_data)