File Coverage

/usr/local/bin/iotrace
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 21 21 100.0


line stmt bran cond sub pod time code
1             #!/usr/local/bin/perl
2              
3             =pod
4              
5             =head1 NAME
6              
7             iotrace - Like strace enough to log STDIN STDOUT STDERR I/O
8              
9             =head1 SYNOPSYS
10              
11             $ iotrace -v -s9000 -tt -e execve,clone,openat,close,read,write -o /tmp/sort.iotrace sort < /etc/passwd > /tmp/passwd.sorted
12             $ iotrace -v -s9000 -o /tmp/perl.iotrace perl -n -e 'print if /./' < /etc/bashrc > /tmp/bashrc.nonblanklines.txt
13             $ diff -wui /etc/bashrc /tmp/bashrc.nonblanklines.txt
14              
15             =cut
16              
17 7     7   36496 use strict;
  7         17  
  7         312  
18 7     7   38 use warnings;
  7         11  
  7         497  
19 7     7   3683 use FindBin qw($RealBin); # Allow bootstrap or symlink method too
  7         9420  
  7         1002  
20 7     7   3676 use lib "$RealBin/../lib","$RealBin/../lib/perl5";
  7         5688  
  7         63  
21 7     7   5388 use IO::Trace qw(iotrace);
  7         290733  
  7         10569  
22 7         1199144 iotrace;