File Coverage

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