File Coverage

Test_Progs/badvar
Criterion Covered Total %
statement 26 63 41.2
branch 6 42 14.2
condition 3 13 23.0
subroutine 1 1 100.0
pod n/a
total 36 119 30.2


line stmt bran cond sub pod time code
1             #! /usr/bin/perl -w
2              
3 3     3   3215 use Shell::POSIX::Select;
  3         5  
  3         18  
4              
5             select (1,2) { print "$_\n"; }