File Coverage

Test_Progs/reply
Criterion Covered Total %
statement 31 138 22.4
branch 6 86 6.9
condition 3 26 11.5
subroutine 2 2 100.0
pod n/a
total 42 252 16.6


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