File Coverage

inc/Path/Class.pm
Criterion Covered Total %
statement 13 16 81.2
branch n/a
condition n/a
subroutine 5 8 62.5
pod 4 4 100.0
total 22 28 78.5


line stmt bran cond sub pod time code
1             #line 1
2             package Path::Class;
3              
4             $VERSION = '0.17';
5             @ISA = qw(Exporter);
6             @EXPORT = qw(file dir);
7             @EXPORT_OK = qw(file dir foreign_file foreign_dir);
8 1     1   37038  
  1         2  
  1         35  
9 1     1   5 use strict;
  1         2  
  1         27  
10 1     1   540 use Exporter;
  1         6  
  1         31  
11 1     1   10 use Path::Class::File;
  1         2  
  1         119  
12             use Path::Class::Dir;
13 0     0 1 0  
14 2     2 1 1424 sub file { Path::Class::File->new(@_) }
15 0     0 1   sub dir { Path::Class::Dir ->new(@_) }
16 0     0 1   sub foreign_file { Path::Class::File->new_foreign(@_) }
17             sub foreign_dir { Path::Class::Dir ->new_foreign(@_) }
18              
19              
20             1;
21             __END__