File Coverage

Test_Progs/reply
Criterion Covered Total %
statement 27 134 20.1
branch 6 86 6.9
condition 3 26 11.5
subroutine 1 1 100.0
pod n/a
total 37 247 14.9


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