/openbsd/gnu/usr.bin/perl/cpan/CPAN/lib/ |
H A D | CPAN.pm | 4 package CPAN; package 19 use CPAN::Author; 22 use CPAN::Bundle; 25 use CPAN::Debug; 28 use CPAN::FTP; 33 use CPAN::URL; 34 use CPAN::Queue; 37 use CPAN::Shell; 116 $CPAN::iCwd ||= CPAN::anycwd(); 117 $CPAN::Perl ||= CPAN::find_perl(); [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/ |
H A D | Index.pm | 1 package CPAN::Index; 71 $CPAN::META = CPAN->new; 94 if ($CPAN::DEBUG){ 99 CPAN->debug($debug) if $CPAN::DEBUG; 115 unless ($CPAN::META->has_inst($CPAN::Config->{yaml_module}||"YAML")) { 251 CPAN->debug(sprintf "line[%s]", $_) if $CPAN::DEBUG; 278 CPAN->debug(sprintf "start[%d]", time) if $CPAN::DEBUG; 285 CPAN->debug(sprintf "end[%d]", time) if $CPAN::DEBUG; 326 $CPAN::Frontend 372 CPAN->debug("secondtime[$secondtime]") if $CPAN::DEBUG; [all …]
|
H A D | Shell.pm | 1 package CPAN::Shell; 317 CPAN->debug("which[@which]") if $CPAN::DEBUG; 408 $CPAN::DEBUG &= $CPAN::DEBUG ^ $CPAN::DEBUG{$what}; 412 $CPAN::DEBUG |= $CPAN::DEBUG{$what}; 444 for $k (sort {$CPAN::DEBUG{$a} <=> $CPAN::DEBUG{$b}} keys %CPAN::DEBUG) { 565 chdir "$CPAN::iCwd" if $CPAN::iCwd; # may fail 596 CPAN->debug("f[$f]") if $CPAN::DEBUG; 600 CPAN->debug("pwd[$pwd]") if $CPAN::DEBUG; 607 CPAN->debug("file[$file]") if $CPAN::DEBUG; 619 CPAN->debug("file[$file]inc[@inc]") if $CPAN::DEBUG; [all …]
|
H A D | Distribution.pm | 3 package CPAN::Distribution; 6 use CPAN::Distroprefs; 7 use CPAN::InfoObj; 91 CPAN->debug("s[$s]") if $CPAN::DEBUG; 106 CPAN->debug("s[$s]") if $CPAN::DEBUG; 898 CPAN->debug("patches[$patches]") if $CPAN::DEBUG; 1853 return CPAN::HandleConfig->safe_quote($CPAN::Perl); 2519 CPAN->debug("not validating '@args'") if $CPAN::DEBUG; 2633 CPAN->debug("prefs_dir[$CPAN::Config->{prefs_dir}]") if $CPAN::DEBUG; 2636 CPAN->debug("prefs[$prefs]") if $CPAN::DEBUG; [all …]
|
H A D | FTP.pm | 3 package CPAN::FTP; 10 use CPAN::FTP::netrc; 226 CPAN->debug("with_defaults[$with_defaults]") if $CPAN::DEBUG; 236 CPAN->debug("u[$u]") if $CPAN::DEBUG; 260 $ftp->debug(1) if $CPAN::DEBUG{'FTP'} & $CPAN::DEBUG; 368 $ENV{$prx} = $CPAN::Config->{$prx} if $CPAN::Config->{$prx}; 386 CPAN->debug("ret[$ret]aslocal[$aslocal]") if $CPAN::DEBUG; 457 } elsif ($CPAN::Config->{curl} || $CPAN::Config->{wget}){ 558 $ENV{$prx} = $CPAN::Config->{$prx} if $CPAN::Config->{$prx}; 656 CPAN->debug("ret[$ret]aslocal[$aslocal]") if $CPAN::DEBUG; [all …]
|
H A D | HandleConfig.pm | 1 package CPAN::HandleConfig; 156 CPAN->debug("o[$o]") if $CPAN::DEBUG; 174 CPAN->debug("func[$func]args[@args]") if $CPAN::DEBUG; 285 CPAN->debug("args[@args]") if $CPAN::DEBUG; 286 if ($CPAN::RUN_DEGRADED) { 335 $CPAN::CONFIG_DIRTY = 0; 416 CPAN->debug("INC{'$config'}[$INC{$config}]") if $CPAN::DEBUG; 422 $CPAN::CONFIG_DIRTY = 0; 564 CPAN->debug("do_init[$do_init]loading[$loading]miss[@miss]") if $CPAN::DEBUG; 610 require CPAN::FirstTime; [all …]
|
H A D | Tarzip.pm | 2 package CPAN::Tarzip; 5 use CPAN::Debug; 51 if ($CPAN::Config->{$what}) { 52 return $CPAN::Config->{$what}; 139 CPAN->debug("hit an uncompressed file") if $CPAN::DEBUG; 142 CPAN->debug("err[$err]success[$success]") if $CPAN::DEBUG; 160 CPAN->debug("hit an uncompressed file") if $CPAN::DEBUG; 163 CPAN->debug("err[$err]success[$success]") if $CPAN::DEBUG; 309 $CPAN::Frontend->mydie(qq{ 434 $CPAN::META->debug("Successfully read file[$file]") if $CPAN::DEBUG; [all …]
|
H A D | CacheMgr.pm | 3 package CPAN::CacheMgr; 5 use CPAN::InfoObj; 15 package CPAN::CacheMgr; 48 return if $CPAN::Signal; 50 return if $CPAN::Signal; 66 my($cwd) = CPAN::anycwd(); 89 return if $CPAN::Signal; 140 return if $CPAN::Signal; 160 if $CPAN::DEBUG; 213 CPAN->debug($debug) if $CPAN::DEBUG; [all …]
|
H A D | Bundle.pm | 3 package CPAN::Bundle; 5 use CPAN::Module; 6 @CPAN::Bundle::ISA = qw(CPAN::Module); 15 $CPAN::Frontend->myprint($self->as_string); 46 if ($depth>=$CPAN::MAX_RECURSION) { 58 CPAN->debug("c[$c]obj[$obj]") if $CPAN::DEBUG; 139 $CPAN::Frontend->mywarn(qq{ 160 my $cwd = CPAN::anycwd(); 202 CPAN->debug("parsefile[$parsefile]") if $CPAN::DEBUG; 235 $CPAN::Frontend->mywarn(qq{ [all …]
|
H A D | InfoObj.pm | 3 package CPAN::InfoObj; 6 use CPAN::Debug; 7 @CPAN::InfoObj::ISA = qw(CPAN::Debug); 57 if $CPAN::DEBUG; 62 my $cwd = CPAN::anycwd(); 66 $CPAN::Frontend->mysleep(5); 76 if $CPAN::DEBUG; 78 my $cwd = CPAN::anycwd(); 97 CPAN->debug("Bug? Empty ID, rejecting"); 132 $CPAN::Frontend->mysleep(5); [all …]
|
H A D | Author.pm | 3 package CPAN::Author; 6 use CPAN::InfoObj; 7 @CPAN::Author::ISA = qw(CPAN::InfoObj); 13 package CPAN::Author; 84 if ($CPAN::META->has_inst("Text::Glob")) { 87 CPAN->debug("glob[$glob]rglob[$rglob]dl[@dl]") if $CPAN::DEBUG; 95 CPAN->debug("rglob[$rglob]dl[@dl]") if $CPAN::DEBUG; 101 $CPAN::Frontend->myprint 134 CPAN->debug("chksumfile[@$chksumfile]recursive[$recursive]may_ftp[$may_ftp]") if $CPAN::DEBUG; 153 CPAN::FTP->localize [all …]
|
H A D | Complete.pm | 3 package CPAN::Complete; 5 @CPAN::Complete::ISA = qw(CPAN::Debug); 8 @CPAN::Complete::COMMANDS = sort qw( 47 package CPAN::Complete; 77 CPAN->debug("word [$word] line[$line] pos[$pos]") if $CPAN::DEBUG; 96 CPAN::Shell->local_bundles; 104 CPAN::Shell->local_bundles; 125 if (CPAN::_sqlite_running()) { 149 CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG; 160 CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG; [all …]
|
H A D | Version.pm | 1 package CPAN::Version; 11 CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG; 22 CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG; 28 CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG; 35 CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG; 43 CPAN->debug(sprintf "lv[%vd] rv[%vd]", $lvstring, $rvstring) if $CPAN::DEBUG; 119 if (defined $CPAN::Frontend) { 120 $CPAN::Frontend->mywarn("Suspicious version string seen [$n]\n"); 127 CPAN->debug("n[$n] better[$better]") if $CPAN::DEBUG;
|
H A D | Module.pm | 3 package CPAN::Module; 5 @CPAN::Module::ISA = qw(CPAN::InfoObj); 215 CPAN->debug("$self entering as_string") if $CPAN::DEBUG; 279 CPAN->debug("mff[$mff]") if $CPAN::DEBUG; 292 CPAN->debug("lfl[$lfl]lfre[$lfre]") if $CPAN::DEBUG; 367 CPAN::Index->reload; 539 CPAN->debug 544 )) if $CPAN::DEBUG; 586 $CPAN::Frontend->mywarn(qq{ 611 if ($CPAN::Perl5lib_tempfile) { [all …]
|
H A D | Nox.pm | 1 package CPAN::Nox; 6 $CPAN::Suppress_readline=1 unless defined $CPAN::term; 10 @CPAN::ISA = ('Exporter'); 11 use CPAN; 14 $CPAN::META->has_inst('Digest::MD5','no'); 15 $CPAN::META->has_inst('LWP','no'); 16 $CPAN::META->has_inst('Compress::Zlib','no'); 17 @EXPORT = @CPAN::EXPORT; 19 *AUTOLOAD = \&CPAN::AUTOLOAD;
|
H A D | Queue.pm | 3 package CPAN::Queue::Item; 28 package CPAN::Queue; 89 CPAN->debug(sprintf("in new All[%s]", 91 )) if $CPAN::DEBUG; 113 )) if $CPAN::DEBUG; 123 )) if $CPAN::DEBUG; 147 CPAN->debug("qmod[$qmod]jumped[$jumped]") if $CPAN::DEBUG; 155 CPAN->debug(sprintf("after jumpqueue All[%s]", 157 )) if $CPAN::DEBUG; 173 CPAN->debug(sprintf("after delete mod[%s] All[%s]", [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/CPAN-Meta/t/parse-cpan-meta/ |
H A D | 02_api.t | 18 use Parse::CPAN::Meta; 19 use Parse::CPAN::Meta::Test; 73 my $from_yaml = Parse::CPAN::Meta->load_file( $meta_yaml ); 82 my $from_yaml = Parse::CPAN::Meta->load_file( $yaml_meta ); 110 my $from_yaml = Parse::CPAN::Meta->load_yaml_string( $yaml ); 119 my @yaml = Parse::CPAN::Meta::LoadFile( $bad_yaml_meta ); 133 my $from_yaml = Parse::CPAN::Meta->load_yaml_string( $yaml ); 144 my $from_json = Parse::CPAN::Meta->load_file( $meta_json ); 154 my $from_json = Parse::CPAN::Meta->load_file( $json_meta ); 165 my $from_json = Parse::CPAN::Meta->load_json_string( $json ); [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/CPAN/t/ |
H A D | 02nox.t | 12 $CPAN::Suppress_readline = $CPAN::Suppress_readline; # silence 13 $CPAN::META = $CPAN::META; # silence 14 $CPAN::term = $CPAN::term; # silence 15 undef $CPAN::term; 21 is( $CPAN::Suppress_readline, 1, 'should set suppress readline flag' ); 26 is( $CPAN::META->has_inst($mod), 0, "$mod should be marked unavailable" ); 30 is( scalar @CPAN::Nox::EXPORT, scalar @CPAN::EXPORT, 'should export just what CPAN does' ); 31 is( \&CPAN::Nox::AUTOLOAD, \&CPAN::AUTOLOAD, 'AUTOLOAD should be aliased' );
|
H A D | 32pushyhttps.t | 15 require CPAN::MyConfig; 16 require CPAN; 17 CPAN::HandleConfig->load; 25 package CPAN::Shell::tacet; 45 CPAN::Shell::tacet->init(); 47 CPAN::Shell->$command(@_); 48 return CPAN::Shell::tacet->output(); 51 $CPAN::Frontend = $CPAN::Frontend = "CPAN::Shell::tacet"; 115 ok $CPAN::Config->{curl}, "set curl to $CPAN::Config->{curl}"; 122 ok !$CPAN::Config->{curl}, "set curl to '$CPAN::Config->{curl}'"; [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HTTP/ |
H A D | Credentials.pm | 3 package CPAN::HTTP::Credentials; 7 $CPAN::HTTP::Credentials::VERSION = $CPAN::HTTP::Credentials::VERSION = "1.9601"; 29 if ( defined $CPAN::Config->{proxy_user} 30 && $CPAN::Config->{proxy_user} 32 $PROXY_USER = $CPAN::Config->{proxy_user}; 51 if ( defined $CPAN::Config->{username} ) { 52 $USER = $CPAN::Config->{username}; 53 $PASSWORD = $CPAN::Config->{password} || ""; 73 if ($CPAN::META->has_inst("Term::ReadKey")) { 77 $CPAN::Frontend->mywarn( [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/CPAN-Meta/lib/CPAN/ |
H A D | Meta.pm | 4 package CPAN::Meta; 57 use CPAN::Meta::Feature; 58 use CPAN::Meta::Prereqs; 59 use CPAN::Meta::Converter; 60 use CPAN::Meta::Validator; 61 use Parse::CPAN::Meta 1.4414 (); 63 BEGIN { *_dclone = \&CPAN::Meta::Converter::_dclone } 225 my $cmc = CPAN::Meta::Converter->new( $struct ); 551 return CPAN::Meta::Feature->new($ident, $f); 616 $backend = Parse::CPAN::Meta->json_backend(); [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/CPAN/lib/App/ |
H A D | Cpan.pm | 437 CPAN::HandleConfig->load( 834 require CPAN::Mirrors; 975 require CPAN::FTP; 983 require CPAN::Mirrors; 1084 CPAN::Shell->autobundle; 1093 CPAN::Shell->recompile; 1102 CPAN::Shell->upgrade(); 1111 CPAN::shell(); 1124 $CPAN::Config = {}; 1149 [$CPAN::Config], [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Plugin/ |
H A D | Specfile.pm | 54 package CPAN::Plugin::Specfile; 88 unless ($CPAN::META->has_inst("CPAN::DistnameInfo")){ 91 my $d = CPAN::Shell->expand("Distribution",$distribution) 92 or $CPAN::Frontend->mydie("Unknowns distribution '$distribution'\n"); 101 my $dni = CPAN::DistnameInfo->new($distribution); 103 my $summary = CPAN::Shell->_guess_manpage($d,\%contains,$dist); 145 my $m = CPAN::Shell->expand("Module",$k); 229 unless (CPAN->has_inst("File::Basename")) { 252 $CPAN::Frontend->myprint($ret); 257 or $CPAN::Frontend->mydie("Could not open >$outfile: $!"); [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/LWP/ |
H A D | UserAgent.pm | 3 package CPAN::LWP::UserAgent; 6 use CPAN::HTTP::Credentials; 9 $CPAN::LWP::UserAgent::VERSION = $CPAN::LWP::UserAgent::VERSION = "1.9601"; 14 if ($CPAN::META->has_usable('LWP::UserAgent')) { 19 $CPAN::Frontend->mywarn(" LWP::UserAgent not available\n"); 26 return CPAN::HTTP::Credentials->get_proxy_credentials(); 28 return CPAN::HTTP::Credentials->get_non_proxy_credentials(); 56 CPAN::HTTP::Credentials->clear_credentials;
|
/openbsd/gnu/usr.bin/perl/cpan/CPAN-Meta/t/ |
H A D | converter.t | 6 use CPAN::Meta; 7 use CPAN::Meta::Validator; 8 use CPAN::Meta::Converter; 12 use Parse::CPAN::Meta; 42 my $original = Parse::CPAN::Meta->load_file( $path ); 47 my $cmc = CPAN::Meta::Converter->new( $original ); 50 my $cmv = CPAN::Meta::Validator->new( $converted ); 58 my $cmc = CPAN::Meta::Converter->new( $original ); 115 my $cmc = CPAN::Meta::Converter->new( $original ); 133 my $cmc = CPAN::Meta::Converter->new( $original ); [all …]
|