File Coverage

Test_Progs/other_select2
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 15 15 100.0


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   8 use blib;
  1         7  
  1         92  
6              
7 1     1   1122 use Shell::POSIX::Select;
  1         3  
  1         5  
8              
9             # Make sure that file-descriptor monitoring version of select
10             # doesn't get identified as loopy one
11              
12 1         3 $rout= $timeleft= $nfound= $wout= $eout= $timeout = 0;
13 1         3 $rin = $win = $ein = '';
14 1         5 vec($rin,fileno(STDIN),1) = 1;
15 1         3 vec($win,fileno(STDOUT),1) = 1;
16 1         4 $ein = $rin | $win;
17              
18 1         132 ($nfound,$timeleft) =
19             select($rout=$rin, $wout=$win, $eout=$ein, $timeout);