File Coverage

inc/Path/Class.pm
Criterion Covered Total %
statement 16 19 84.2
branch n/a
condition n/a
subroutine 6 9 66.6
pod 4 4 100.0
total 26 32 81.2


line stmt bran cond sub pod time code
1 4     4   4265 #line 1
  4         8  
  4         258  
2             use strict;
3              
4             package Path::Class;
5             {
6             $Path::Class::VERSION = '0.26';
7             }
8              
9             {
10 4     4   21 ## no critic
  4         19  
  4         290  
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 4     4   21  
  4         10  
  4         211  
17 4     4   3535 use Exporter;
  4         223397  
  4         130  
18 4     4   43 use Path::Class::File;
  4         7  
  4         461  
19             use Path::Class::Dir;
20 12     12 1 7604  
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__