File Coverage

Test_Progs/ourvar
Criterion Covered Total %
statement 26 64 40.6
branch 6 42 14.2
condition 3 13 23.0
subroutine 1 1 100.0
pod n/a
total 36 120 30.0


line stmt bran cond sub pod time code
1             #! /usr/bin/perl -w
2              
3 1     1   833 use Shell::POSIX::Select;
  1         2  
  1         5  
4              
5             select our $var (1) { print "$var\n"; }
6             print "Outside loop, var is $var\n";