File Coverage

blib/lib/Path/Class.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod 5 5 100.0
total 39 39 100.0


line stmt bran cond sub pod time code
1 6     6   19240 use strict;
  6         11  
  6         435  
2              
3             package Path::Class;
4             {
5             $Path::Class::VERSION = '0.35';
6             }
7              
8             {
9             ## no critic
10 6     6   33 no strict 'vars';
  6         11  
  6         423  
11             @ISA = qw(Exporter);
12             @EXPORT = qw(file dir);
13             @EXPORT_OK = qw(file dir foreign_file foreign_dir tempdir);
14             }
15              
16 6     6   32 use Exporter;
  6         17  
  6         270  
17 6     6   4126 use Path::Class::File;
  6         21  
  6         202  
18 6     6   47 use Path::Class::Dir;
  6         14  
  6         125  
19 6     6   50 use File::Temp ();
  6         15  
  6         980  
20              
21 23     23 1 3728 sub file { Path::Class::File->new(@_) }
22 35     35 1 7216 sub dir { Path::Class::Dir ->new(@_) }
23 1     1 1 276 sub foreign_file { Path::Class::File->new_foreign(@_) }
24 6     6 1 778 sub foreign_dir { Path::Class::Dir ->new_foreign(@_) }
25 2     2 1 578 sub tempdir { Path::Class::Dir->new(File::Temp::tempdir(@_)) }
26              
27              
28             1;
29             __END__