File Coverage

blib/lib/CPAN/Access/AdHoc/Default/CPAN/cpanm.pm
Criterion Covered Total %
statement 24 24 100.0
branch 3 6 50.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 34 37 91.8


line stmt bran cond sub pod time code
1             package CPAN::Access::AdHoc::Default::CPAN::cpanm;
2              
3 4     4   4285 use 5.008;
  4         15  
  4         168  
4              
5 4     4   24 use strict;
  4         9  
  4         119  
6 4     4   22 use warnings;
  4         7  
  4         113  
7              
8 4     4   21 use CPAN::Access::AdHoc::Util qw{ __load };
  4         8  
  4         217  
9 4     4   4824 use Getopt::Long 2.33;
  4         55445  
  4         118  
10              
11             our $VERSION = '0.000_18';
12              
13             my $configured = eval {
14             __load( 'App::cpanminus' );
15             1;
16             };
17              
18             sub get_default {
19 1 50   1 1 12 $configured
20             or return;
21 1         7 my @mirrors;
22 1 50       10 if ( defined $ENV{PERL_CPANM_OPT} ) {
23 1         19 my $psr = Getopt::Long::Parser->new();
24 1         40 $psr->configure( qw{ pass_through } );
25 1         108 local @ARGV = split qr{ \s+ }smx, $ENV{PERL_CPANM_OPT};
26 1         10 $psr->getoptions( 'mirror=s@' => \@mirrors);
27             }
28             @mirrors
29 1 50       571 or @mirrors = ( qw{ http://search.cpan.org/CPAN } );
30              
31 1         8 return @mirrors;
32             }
33              
34              
35             1;
36              
37             __END__