File Coverage

blib/lib/IO/File/WithPath.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 29 29 100.0


line stmt bran cond sub pod time code
1             package IO::File::WithPath;
2 3     3   17605 use strict;
  3         8  
  3         260  
3 3     3   18 use warnings;
  3         6  
  3         183  
4             our $VERSION = '0.09';
5              
6 3     3   20 use base qw/IO::File/;
  3         4  
  3         3995  
7 3     3   104704 use File::Spec;
  3         10  
  3         710  
8              
9             sub new {
10 3     3 1 234 my $class = shift;
11 3         81 my $path = File::Spec->rel2abs(shift);
12              
13 3         54 my $io = IO::File->new($path, @_);
14              
15             # symboltable hack
16 3         435 ${*$io}{+__PACKAGE__} = $path;
  3         18  
17              
18 3         20 bless $io => $class;
19             }
20              
21             sub path {
22 2     2 1 768 my $io = shift;
23 2         4 ${*$io}{+__PACKAGE__};
  2         21  
24             }
25              
26              
27             1;
28             __END__