Test_Progs/prompt.nested | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 27 | 126 | 21.4 |
branch | 6 | 86 | 6.9 |
condition | 3 | 26 | 11.5 |
subroutine | 1 | 1 | 100.0 |
pod | n/a | ||
total | 37 | 239 | 15.4 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | #! /usr/bin/perl -w | ||||||
2 | |||||||
3 | 1 | 1 | 869 | use Shell::POSIX::Select qw($Prompt); | |||
1 | 2 | ||||||
1 | 6 | ||||||
4 | |||||||
5 | 1 | 3 | $Prompt='Custom Prompt for loop 1'; | ||||
6 | select ( 1 ){ | ||||||
7 | $Prompt='Custom Prompt for loop 2'; | ||||||
8 | LOOP2: | ||||||
9 | select ( 2 ){ last LOOP2; } | ||||||
10 | 1 | 50 | 50 | 1 | } | ||
1 | 4 |