File Coverage

lib/CPANPLUS/Config/HomeEnv.pm
Criterion Covered Total %
statement 12 12 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             package CPANPLUS::Config::HomeEnv;
2              
3 2     2   1262 use strict;
  2         5  
  2         68  
4 2     2   15 use File::Spec;
  2         8  
  2         49  
5 2     2   11 use vars qw($VERSION);
  2         3  
  2         315  
6              
7             $VERSION = "0.9910";
8              
9             sub setup {
10 2     2 1 5 my $conf = shift;
11             $conf->set_conf( base => File::Spec->catdir( $ENV{PERL5_CPANPLUS_HOME}, '.cpanplus' ) )
12 2 50       8 if $ENV{PERL5_CPANPLUS_HOME};
13 2         15 return 1;
14             }
15              
16             qq'Wherever I hang my hat is home';
17              
18             __END__