File Coverage

Test_Progs/select2foreach
Criterion Covered Total %
statement 30 67 44.7
branch 6 42 14.2
condition 3 13 23.0
subroutine 2 2 100.0
pod n/a
total 41 124 33.0


line stmt bran cond sub pod time code
1             #!perl -w
2              
3 1         5 my $VERSION = 1.02;
4              
5 1     1   8 use blib;
  1         8  
  1         95  
6              
7 1     1   1218 use Shell::POSIX::Select ( testmode => 'foreach' );
  1         2  
  1         5  
8              
9             select (1,2) { print "$_\n"; }