File Coverage

Test_Progs/nested_heading_prompt
Criterion Covered Total %
statement 32 133 24.0
branch 6 86 6.9
condition 3 26 11.5
subroutine 2 2 100.0
pod n/a
total 43 247 17.4


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         7  
  1         478  
6              
7 1     1   1152 use Shell::POSIX::Select qw($Prompt $Heading);
  1         2  
  1         10  
8              
9 1         5 $Heading="\n\nQuantity Menu:";
10 1         3 $Prompt="Choose Quantity:";
11             OUTER:
12             select my $quantity (1..4) {
13             # warn "inside Outer loop\n";
14              
15             $Heading="\nSize Menu:";
16 1 50 50     4 $Prompt='Choose Size:';
  1         6  
17             select my $size ( qw (L XL) ) {
18             # warn "inside Inner loop\n";
19             print "You chose $quantity units of size $size\n";
20             last OUTER;
21 1         3 }
  1         4  
22 1         2 # warn "outside Inner loop\n";
23             }
24 1 50       5 #warn "outside all loops\n";