File Coverage

Test_Progs/nested2b
Criterion Covered Total %
statement 31 134 23.1
branch 6 86 6.9
condition 3 26 11.5
subroutine 2 2 100.0
pod n/a
total 42 248 16.9


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