Test_Progs/nested2c | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 27 | 131 | 20.6 |
branch | 6 | 86 | 6.9 |
condition | 3 | 26 | 11.5 |
subroutine | 1 | 1 | 100.0 |
pod | n/a | ||
total | 37 | 244 | 15.1 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | #! /usr/bin/perl -w | ||||||
2 | |||||||
3 | 1 | 1 | 881 | use Shell::POSIX::Select qw($Heading $Reply $Prompt); | |||
1 | 2 | ||||||
1 | 5 | ||||||
4 | |||||||
5 | 1 | 3 | $Prompt='Menu 1'; | ||||
6 | select my $var (1) { | ||||||
7 | warn "inside Outer loop\n"; | ||||||
8 | $Prompt='Menu 2'; | ||||||
9 | select my $var2 (qw (a b) ) { | ||||||
10 | 1 | 50 | 50 | 2 | warn "inside Inner loop\n"; | ||
1 | 5 | ||||||
11 | print "$var$var2\n"; | ||||||
12 | last; | ||||||
13 | } | ||||||
14 | warn "outside Inner loop\n"; | ||||||
15 | 1 | 2 | } | ||||
1 | 3 | ||||||
16 | 1 | 2 | warn "outside all loops\n"; |