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