File Coverage

Test_Progs/nested2c
Criterion Covered Total %
statement 27 131 20.6
branch 6 86 6.9
condition 3 26 11.5
subroutine 1 1 100.0
pod n/a
total 37 244 15.1


line stmt bran cond sub pod time code
1             #! /usr/bin/perl -w
2              
3 1     1   881 use Shell::POSIX::Select qw($Heading $Reply $Prompt);
  1         2  
  1         5  
4              
5 1         3 $Prompt='Menu 1';
6             select my $var (1) {
7             warn "inside Outer loop\n";
8             $Prompt='Menu 2';
9             select my $var2 (qw (a b) ) {
10 1 50 50     2 warn "inside Inner loop\n";
  1         5  
11             print "$var$var2\n";
12             last;
13             }
14             warn "outside Inner loop\n";
15 1         2 }
  1         3  
16 1         2 warn "outside all loops\n";