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   12884 use strict;
  6         9  
  6         312  
2              
3             package Path::Class;
4             {
5             $Path::Class::VERSION = '0.36';
6             }
7              
8             {
9             ## no critic
10 6     6   23 no strict 'vars';
  6         9  
  6         390  
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   22 use Exporter;
  6         9  
  6         270  
17 6     6   2425 use Path::Class::File;
  6         12  
  6         151  
18 6     6   28 use Path::Class::Dir;
  6         8  
  6         79  
19 6     6   20 use File::Temp ();
  6         6  
  6         595  
20              
21 24     24 1 2592 sub file { Path::Class::File->new(@_) }
22 46     46 1 5490 sub dir { Path::Class::Dir ->new(@_) }
23 1     1 1 237 sub foreign_file { Path::Class::File->new_foreign(@_) }
24 6     6 1 903 sub foreign_dir { Path::Class::Dir ->new_foreign(@_) }
25 2     2 1 346 sub tempdir { Path::Class::Dir->new(File::Temp::tempdir(@_)) }
26              
27              
28             1;
29             __END__