File Coverage

/usr/local/bin/iotrace
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 13 13 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 6     6   32117 use strict;
  6         10  
  6         244  
18 6     6   27 use warnings;
  6         9  
  6         438  
19 6     6   3649 use IO::Trace qw(iotrace);
  6         283670  
  6         8091  
20 6         952938 iotrace;