File Coverage

Test_Progs/refvar
Criterion Covered Total %
statement 26 65 40.0
branch 6 42 14.2
condition 3 13 23.0
subroutine 1 1 100.0
pod n/a
total 36 121 29.7


line stmt bran cond sub pod time code
1             #! /usr/bin/perl -w
2              
3 1     1   797 use Shell::POSIX::Select ;
  1         2  
  1         4  
4              
5 1         4 $var = '$loopvar';
6              
7             select $$var (1,2) { print "$$var\n"; last; }
8              
9             print "After loop, loopvar contains: $$var\n";