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   2913 use 5.008;
  4         9  
  4         133  
4              
5 4     4   16 use strict;
  4         9  
  4         95  
6 4     4   14 use warnings;
  4         4  
  4         95  
7              
8 4     4   16 use CPAN::Access::AdHoc::Util qw{ __load };
  4         6  
  4         176  
9 4     4   2596 use Getopt::Long 2.33;
  4         35446  
  4         94  
10              
11             our $VERSION = '0.000_194';
12              
13             my $configured = eval {
14             __load( 'App::cpanminus' );
15             1;
16             };
17              
18             sub get_default {
19 1 50   1 1 4 $configured
20             or return;
21 1         2 my @mirrors;
22 1 50       4 if ( defined $ENV{PERL_CPANM_OPT} ) {
23 1         9 my $psr = Getopt::Long::Parser->new();
24 1         23 $psr->configure( qw{ pass_through } );
25 1         62 local @ARGV = split qr{ \s+ }smx, $ENV{PERL_CPANM_OPT};
26 1         6 $psr->getoptions( 'mirror=s@' => \@mirrors);
27             }
28             @mirrors
29 1 50       406 or @mirrors = ( qw{ http://search.cpan.org/CPAN } );
30              
31 1         5 return @mirrors;
32             }
33              
34              
35             1;
36              
37             __END__