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