File Coverage

blib/lib/ARGV/readonly.pm
Criterion Covered Total %
statement 4 7 57.1
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 9 66.6


line stmt bran cond sub pod time code
1             package ARGV::readonly;
2              
3 1     1   12990 use 5.00001;
  1         4  
  1         248  
4              
5             $VERSION = '0.01';
6              
7             sub import{
8             # Tom Christiansen in Message-ID: <24692.1217339882@chthon>
9             # reccomends essentially the following:
10 1     1   3755 for (@ARGV){
11 0           s/^(\s+)/.\/$1/; # leading whitespace preserved
12 0           s/^/< /; # force open for input
13 0           $_.=qq/\0/; # trailing whitespace preserved & pipes forbidden
14             };
15             };
16              
17              
18             1;
19             __END__