File Coverage

Test_Progs/nested_heading_prompt
Criterion Covered Total %
statement 28 129 21.7
branch 6 86 6.9
condition 3 26 11.5
subroutine 1 1 100.0
pod n/a
total 38 242 15.7


line stmt bran cond sub pod time code
1             #! /usr/bin/perl -w
2              
3 1     1   865 use Shell::POSIX::Select qw($Prompt $Heading);
  1         2  
  1         5  
4              
5 1         2 $Heading="\n\nQuantity Menu:";
6 1         1 $Prompt="Choose Quantity:";
7             OUTER:
8             select my $quantity (1..4) {
9             # warn "inside Outer loop\n";
10              
11             $Heading="\nSize Menu:";
12 1 50 50     2 $Prompt='Choose Size:';
  1         5  
13             select my $size ( qw (L XL) ) {
14             # warn "inside Inner loop\n";
15             print "You chose $quantity units of size $size\n";
16             last OUTER;
17 1         1 }
  1         3  
18 1         2 # warn "outside Inner loop\n";
19             }
20 1 50       3 #warn "outside all loops\n";