File Coverage

inc/Path/Class.pm
Criterion Covered Total %
statement 16 20 80.0
branch n/a
condition n/a
subroutine 6 10 60.0
pod 4 4 100.0
total 26 34 76.4


line stmt bran cond sub pod time code
1 1     1   15809 #line 1
  1         2  
  1         67  
2             use strict;
3              
4             package Path::Class;
5 1     1   22 BEGIN {
6             $Path::Class::VERSION = '0.24';
7             }
8              
9             {
10 1     1   5 ## no critic
  1         3  
  1         63  
11             no strict 'vars';
12             @ISA = qw(Exporter);
13             @EXPORT = qw(file dir);
14             @EXPORT_OK = qw(file dir foreign_file foreign_dir);
15             }
16 1     1   4  
  1         2  
  1         47  
17 1     1   1121 use Exporter;
  1         60610  
  1         29  
18 1     1   10 use Path::Class::File;
  1         2  
  1         121  
19             use Path::Class::Dir;
20 0     0 1    
21 0     0 1   sub file { Path::Class::File->new(@_) }
22 0     0 1   sub dir { Path::Class::Dir ->new(@_) }
23 0     0 1   sub foreign_file { Path::Class::File->new_foreign(@_) }
24             sub foreign_dir { Path::Class::Dir ->new_foreign(@_) }
25              
26              
27             1;
28             __END__