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   1285 use strict;
  2         6  
  2         97  
4 2     2   16 use File::Spec;
  2         6  
  2         59  
5 2     2   12 use vars qw($VERSION);
  2         7  
  2         351  
6              
7             $VERSION = "0.9914";
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         17 return 1;
14             }
15              
16             qq'Wherever I hang my hat is home';
17              
18             __END__