File Coverage

blib/lib/Module/P5Z.pm
Criterion Covered Total %
statement 16 21 76.1
branch n/a
condition 0 3 0.0
subroutine 6 8 75.0
pod 0 2 0.0
total 22 34 64.7


line stmt bran cond sub pod time code
1             package Module::P5Z;
2              
3 1     1   1422 use 5.006;
  1         3  
  1         36  
4 1     1   7 use strict;
  1         1  
  1         37  
5 1     1   898 use File::pushd ();
  1         2074  
  1         19  
6 1     1   7 use Archive::Tar ();
  1         2  
  1         21  
7              
8 1     1   6 use vars qw{$VERSION};
  1         2  
  1         46  
9             BEGIN {
10 1     1   73 $VERSION = '1.19';
11             }
12              
13              
14              
15              
16              
17             #####################################################################
18             # Constructor
19              
20             sub read {
21 0     0 0   my $class = shift;
22 0           my $self = bless { @_ }, $class;
23              
24             # Apply defaults
25 0   0       $self->{tempd} ||= File::pushd::tempd();
26              
27 0           $self;
28             }
29              
30             sub tempd {
31 0     0 0   $_[0]->{tempd};
32             }
33              
34             1;