File Coverage

blib/lib/CPANPLUS/Config/BaseEnv.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::BaseEnv;
2              
3 2     2   58382 use strict;
  2         4  
  2         78  
4 2     2   12 use File::Spec;
  2         4  
  2         51  
5 2     2   19 use vars qw($VERSION);
  2         4  
  2         271  
6              
7             $VERSION = '0.04';
8              
9             sub setup {
10 1     1 1 3391 my $conf = shift;
11 1 50       30 $conf->set_conf( base => File::Spec->catdir( $ENV{PERL5_CPANPLUS_BASE}, '.cpanplus' ) )
12             if $ENV{PERL5_CPANPLUS_BASE};
13 1         295 return 1;
14             }
15              
16             'YACSmoking';
17              
18             __END__