File Coverage

Test_Progs/arrayvar
Criterion Covered Total %
statement 22 66 33.3
branch 6 42 14.2
condition 3 13 23.0
subroutine 2 2 100.0
pod n/a
total 33 123 26.8


line stmt bran cond sub pod time code
1             #! /usr/bin/perl -w
2              
3 1         5 my $VERSION = 1.02;
4              
5 1     1   9 use blib;
  1         3  
  1         128  
6              
7 1     1   1058 use Shell::POSIX::Select;
  1         4  
  1         7  
8              
9             select $var[0] (@ARGV) { print "$var[0]\n"; }