File Coverage

io_test.pl
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition 1 2 50.0
subroutine 1 1 100.0
pod n/a
total 14 15 93.3


line stmt bran cond sub pod time code
1 2     2   9 use strict;
  2         3  
  2         3357  
2              
3 2         10207 my $perl = `which perl`;
4              
5 2         30 chomp $perl;
6              
7 2   50     180 open IN, $perl || die "$0: $!\n";
8              
9 2         39 my $buf;
10 2         11 my $template = 'n*';
11              
12 2         63 while ( sysread IN, $buf, 603 )
13             {
14 5610         7924 my $out = unpack $template, $buf;
15 5610         47534 syswrite STDOUT, $buf;
16 5610         59219 syswrite STDERR, $out;
17             }