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   10550 use strict;
  6         9  
  6         251  
2              
3             package Path::Class;
4             {
5             $Path::Class::VERSION = '0.37';
6             }
7              
8             {
9             ## no critic
10 6     6   17 no strict 'vars';
  6         5  
  6         302  
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   19 use Exporter;
  6         8  
  6         176  
17 6     6   2295 use Path::Class::File;
  6         10  
  6         121  
18 6     6   42 use Path::Class::Dir;
  6         7  
  6         73  
19 6     6   17 use File::Temp ();
  6         6  
  6         492  
20              
21 24     24 1 2745 sub file { Path::Class::File->new(@_) }
22 52     52 1 4984 sub dir { Path::Class::Dir ->new(@_) }
23 1     1 1 193 sub foreign_file { Path::Class::File->new_foreign(@_) }
24 6     6 1 699 sub foreign_dir { Path::Class::Dir ->new_foreign(@_) }
25 2     2 1 359 sub tempdir { Path::Class::Dir->new(File::Temp::tempdir(@_)) }
26              
27              
28             1;
29             __END__