File Coverage

Test_Progs/prompt.nested
Criterion Covered Total %
statement 31 130 23.8
branch 6 86 6.9
condition 3 26 11.5
subroutine 2 2 100.0
pod n/a
total 42 244 17.2


line stmt bran cond sub pod time code
1             #! /usr/bin/perl -w
2              
3 1         3 my $VERSION = 1.02;
4              
5 1     1   7 use blib;
  1         8  
  1         97  
6              
7 1     1   1169 use Shell::POSIX::Select qw($Prompt);
  1         2  
  1         5  
8              
9 1         3 $Prompt='Custom Prompt for loop 1';
10             select ( 1 ){
11             $Prompt='Custom Prompt for loop 2';
12             LOOP2:
13             select ( 2 ){ last LOOP2; }
14 1 50 50     2 }
  1         5