File Coverage

io_test.pl
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition 1 2 50.0
subroutine 2 2 100.0
pod n/a
total 18 19 94.7


line stmt bran cond sub pod time code
1 2     2   10545 use strict;
  2         4  
  2         83  
2 2     2   9 use warnings;
  2         4  
  2         3382  
3              
4 2         332782 my $perl = $ENV{_};
5              
6 2         7 chomp $perl;
7              
8 2   50     122 open IN, $perl || die "$0: $!\n";
9              
10 2         7 my $buf;
11 2         6 my $template = 'n*';
12              
13 2         27 while ( sysread IN, $buf, 603 )
14             {
15 20         45 my $out = unpack $template, $buf;
16 20         260 syswrite STDOUT, $buf;
17 20         740 syswrite STDERR, $out;
18             }