lib/App/Cpan.pm

290 use CPAN 1.80 (); # needs no test
416 	if( 0 == @ARGV ) { CPAN::shell(); exit 0 }
436 		local $CPAN::Be_Silent = 1;
437 		CPAN::HandleConfig->load(
458 			$CPAN::Config->{$setting} = $value;
561 	$CPAN::Frontend->mywarn(">($autoload): $_\n")
623 	elsif( not $switch and not @$args ) { return CPAN::shell() }
629 	die "CPAN.pm cannot $method!\n" unless CPAN::Shell->can( $method );
633 		   if( $options->{f} ) { sub { CPAN::Shell->force( $method, @_ )  } }
634 		elsif( $options->{T} ) { sub { CPAN::Shell->notest( $method, @_ ) } }
635 		else                   { sub { CPAN::Shell->$method( @_ )         } }
682 	*CPAN::Shell::myprint = sub {
686 			$CPAN::Config->{colorize_print}||'bold blue on_white',
690 	*CPAN::Shell::mywarn = sub {
694 			$CPAN::Config->{colorize_warn}||'bold red on_white'
794 	$CPAN::Config->{trust_test_report_history} = 1;
815 		"$0 script version $VERSION, CPAN.pm version " . CPAN->VERSION );
827 	foreach my $mirror ( @{ $CPAN::Config->{urllist} } ) {
834 	require CPAN::Mirrors;
836 	if ( $CPAN::Config->{connect_to_internet_ok} ) {
837 		$CPAN::Frontend->myprint(qq{Trying to fetch a mirror list from the Internet\n});
838 …eval { CPAN::FTP->localize('MIRRORED.BY',File::Spec->catfile($CPAN::Config->{keep_source_where},'M…
839 			or $CPAN::Frontend->mywarn(<<'HERE');
843 		$CPAN::Frontend->myprint("\n");
846 	my $mirrors   = CPAN::Mirrors->new( _mirror_file() );
863 	my $makepl_arg   = $CPAN::Config->{makepl_arg};
864 	my $mbuildpl_arg = $CPAN::Config->{mbuildpl_arg};
949 	my $urls   = $CPAN::Config->{urllist};
971 			$CPAN::Config->{keep_source_where}, $file );
975 			require CPAN::FTP;
976 			CPAN::FTP->localize( $file, $local_path, 3, 1 );
983 	require CPAN::Mirrors;
985 	my $mirrors = CPAN::Mirrors->new( _mirror_file() );
997 	$CPAN::Config->{urllist} = [
1073 	$CPAN::Config->{urllist} = [ split /,/, $_[0] ];
1075 	$logger->debug( "Mirrors are @{$CPAN::Config->{urllist}}" );
1082 		"Creating autobundle in $CPAN::Config->{cpan_home}/Bundle" );
1084 	CPAN::Shell->autobundle;
1093 	CPAN::Shell->recompile;
1102 	CPAN::Shell->upgrade();
1111 	CPAN::shell();
1124 	$CPAN::Config = {};
1133 	$CPAN::Config_loaded = 'fake out';
1149 		[$CPAN::Config],
1162 	*CPAN::_flock    = sub { 1 };
1163 	*CPAN::checklock = sub { 1 };
1172 	local $CPAN::DEBUG = 1;
1206 	foreach my $site ( @{ $CPAN::Config->{urllist} } )
1319 		my $author = CPAN::Shell->expand( "Author", $module->userid );
1337 		my $author = CPAN::Shell->expand( "Author", $module->userid );
1363 	$modules = [ map { $_->id } CPAN::Shell->expand( "Module", "/./" ) ];
1521 	my $expanded = CPAN::Shell->expandany( $module );
1523 	$expanded = CPAN::Shell->expand( "Module", $module );