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 2     2   777  
  2         2  
  2         43  
9 2     2   7 use strict;
  2         2  
  2         47  
10 2     2   806 use Exporter;
  2         60943  
  2         49  
11 2     2   13 use Path::Class::File;
  2         3  
  2         161  
12             use Path::Class::Dir;
13 2     2 1 30  
14 0     0 1   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__