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"; |