Home
last modified time | relevance | path

Searched refs:CPAN (Results 1 – 25 of 355) sorted by relevance

12345678910>>...15

/openbsd/src/gnu/usr.bin/perl/cpan/CPAN/lib/
DCPAN.pm4 package CPAN; package
5 $CPAN::VERSION = '2.36';
6 $CPAN::VERSION =~ s/_//;
19 use CPAN::Author;
20 use CPAN::HandleConfig;
21 use CPAN::Version;
22 use CPAN::Bundle;
23 use CPAN::CacheMgr;
24 use CPAN::Complete;
25 use CPAN::Debug;
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/
DIndex.pm1 package CPAN::Index;
5 @CPAN::Index::ISA = qw(CPAN::Debug);
14 $CPAN::Index::LAST_TIME = 0;
47 for ($CPAN::Config->{index_expire}) {
50 unless (1 || $CPAN::Have_warned->{readmetadatacache}++) {
53 Carp::cluck("META-PROTOCOL[$CPAN::META->{PROTOCOL}]");
55 unless ($CPAN::META->{PROTOCOL}) {
57 $CPAN::META->{PROTOCOL} ||= "1.0";
59 if ( $CPAN::META->{PROTOCOL} < PROTOCOL ) {
63 if ($LAST_TIME + $CPAN::Config->{index_expire}*86400 > $time
[all …]
DShell.pm1 package CPAN::Shell;
53 @CPAN::Shell::ISA = qw(CPAN::Debug);
113 if ($CPAN::Signal) {
126 if ($CPAN::META->has_inst('CPAN::WAIT')) {
127 CPAN::WAIT->$l(@_);
129 $CPAN::Frontend->mywarn(qq{
137 $CPAN::Frontend->mywarn(qq{Unknown shell command '$l'. }.
159 $CPAN::Frontend->myprint("$about\: $help\n");
161 my $filler = " " x (80 - 28 - length($CPAN::VERSION));
162 $CPAN::Frontend->myprint(qq{
[all …]
DDistribution.pm3 package CPAN::Distribution;
6 use CPAN::Distroprefs;
7 use CPAN::InfoObj;
10 @CPAN::Distribution::ISA = qw(CPAN::InfoObj);
25 for my $plugin (@{$CPAN::Config->{plugin_list}}) {
28 if ($CPAN::META->has_inst($plugin_proper)){
35 … $CPAN::Frontend->mydie("Plugin '$plugin_proper' not found for hook '$hookname'");
75 if (!$CPAN::META->{LOCK}
76 && !$CPAN::Have_warned->{"$s is unlocked"}++
78 $CPAN::Frontend->mywarn("You are visiting the local directory
[all …]
DFTP.pm3 package CPAN::FTP;
10 use CPAN::FTP::netrc;
13 @CPAN::FTP::ISA = qw(CPAN::Debug);
27 $CPAN::Frontend->mydie("Could not open '$file' after 10000 tries: $!") if ++$cnt > 100000;
37 my $ftpstats_size = $CPAN::Config->{ftpstats_size};
46 my $file = File::Spec->catfile($CPAN::Config->{cpan_home},"FTPstats.yml");
50 while (!CPAN::_flock($fh, $locktype|LOCK_NB)) {
54 $CPAN::Frontend->mywarn("$now: waiting for read lock on '$file' (since $waitstart)\n");
66 my $stats = eval { CPAN->_yaml_loadfile($file, {loadblessed => 1}); };
71 $CPAN::Frontend->myprintonce("Warning (usually harmless): $@\n");
[all …]
DHandleConfig.pm1 package CPAN::HandleConfig;
147 CPAN->debug("self[$self]args[".join(" | ",@args)."]");
156 CPAN->debug("o[$o]") if $CPAN::DEBUG;
158 $CPAN::Frontend->mywarn("Warning: unknown configuration variable '$o'\n");
174 CPAN->debug("func[$func]args[@args]") if $CPAN::DEBUG;
177 push @{$CPAN::Config->{$o}}, @args;
180 pop @{$CPAN::Config->{$o}};
183 shift @{$CPAN::Config->{$o}};
186 unshift @{$CPAN::Config->{$o}}, @args;
191 splice @{$CPAN::Config->{$o}}, $offset, $length, @args; # may warn
[all …]
DTarzip.pm2 package CPAN::Tarzip;
5 use CPAN::Debug;
16 $CPAN::Frontend->mydie("CPAN::Tarzip->new called without arg") unless defined $file;
25 unless ($me->{UNGZIPPRG} = $CPAN::Config->{bzip2}) {
30 $CPAN::Frontend->mydie(qq{
45 $CPAN::META->has_inst("Compress::Zlib") or return;
51 if ($CPAN::Config->{$what}) {
52 return $CPAN::Config->{$what};
54 if ($CPAN::META->has_inst("File::Which")) {
77 or $CPAN::Frontend->mydie("Could not open $read: $!");
[all …]
DCacheMgr.pm3 package CPAN::CacheMgr;
5 use CPAN::InfoObj;
6 @CPAN::CacheMgr::ISA = qw(CPAN::InfoObj CPAN);
15 package CPAN::CacheMgr;
36 return unless $CPAN::META->{LOCK};
41 $CPAN::Frontend->myprint(sprintf(
48 return if $CPAN::Signal;
50 return if $CPAN::Signal;
64 $self->debug("reading dir[$dir]") if $CPAN::DEBUG;
66 my($cwd) = CPAN::anycwd();
[all …]
DBundle.pm3 package CPAN::Bundle;
5 use CPAN::Module;
6 @CPAN::Bundle::ISA = qw(CPAN::Module);
15 $CPAN::Frontend->myprint($self->as_string);
23 my $obj = CPAN::Shell->expandany($c) or next;
26 $CPAN::Frontend->mywarn("$id seems to contain itself, skipping\n");
46 if ($depth>=$CPAN::MAX_RECURSION) {
47 my $e = CPAN::Exception::RecursiveDependency->new($ancestors);
57 my $obj = CPAN::Shell->expandany($c) or next;
58 CPAN->debug("c[$c]obj[$obj]") if $CPAN::DEBUG;
[all …]
DInfoObj.pm3 package CPAN::InfoObj;
6 use CPAN::Debug;
7 @CPAN::InfoObj::ISA = qw(CPAN::Debug);
56 $self->debug(sprintf "changed directory to %s", CPAN::anycwd())
57 if $CPAN::DEBUG;
62 my $cwd = CPAN::anycwd();
63 $CPAN::Frontend->mywarn("I have neither the -x permission nor the ".
66 $CPAN::Frontend->mysleep(5);
67 $CPAN::Frontend->mydie(qq{Could not chdir from cwd[$cwd] }.
72 $CPAN::Frontend->mydie("Directory '$todir' has gone. Cannot continue.\n");
[all …]
DAuthor.pm3 package CPAN::Author;
6 use CPAN::InfoObj;
7 @CPAN::Author::ISA = qw(CPAN::InfoObj);
13 package CPAN::Author;
32 $CPAN::Frontend->mydie("Illegal author id[$id]") unless $id =~ /^[A-Z]/;
74 $CPAN::Frontend->myprint("Directory $csf[1]/ does not exist\n") unless $silent ;
79 $CPAN::Frontend->myprint("Directory $id/ does not exist\n") unless $silent;
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;
[all …]
DComplete.pm3 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;
84 @return = grep /^\Q$word\E/, @CPAN::Complete::COMMANDS;
93 …@return = grep /^\Q$word\E/, map {"$author/$_->[2]"} CPAN::Shell->expand("Author",$author)->ls("$r…
96 CPAN::Shell->local_bundles;
104 CPAN::Shell->local_bundles;
125 if (CPAN::_sqlite_running()) {
[all …]
DModule.pm3 package CPAN::Module;
5 @CPAN::Module::ISA = qw(CPAN::InfoObj);
35 CPAN::Shell->expand("Distribution",$self->cpan_file);
57 if ( my $dist = CPAN::Shell->expand("Distribution", $self->cpan_file) ) {
83 my $obj = CPAN::Shell->expandany($who_asked_for_me);
92 if (CPAN::Version->vcmp($have_version,$want_version) >= 0) {
106 if ($depth>=$CPAN::MAX_RECURSION) {
107 my $e = CPAN::Exception::RecursiveDependency->new($ancestors);
116 if ( my $dist = CPAN::Shell->expand("Distribution", $self->cpan_file) ) {
135 $CPAN::Shell::COLOR_REGISTERED
[all …]
DVersion.pm1 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;
DNox.pm1 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;
DQueue.pm3 package CPAN::Queue::Item;
28 package CPAN::Queue;
89 CPAN->debug(sprintf("in new All[%s]",
91 )) if $CPAN::DEBUG;
110 CPAN->debug(sprintf("after delete_first mod[%s] All[%s]",
113 )) if $CPAN::DEBUG;
120 CPAN->debug(sprintf("before jumpqueue All[%s] what[%s]",
123 )) if $CPAN::DEBUG;
147 CPAN->debug("qmod[$qmod]jumped[$jumped]") if $CPAN::DEBUG;
155 CPAN->debug(sprintf("after jumpqueue All[%s]",
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN-Meta/t/parse-cpan-meta/
D02_api.t18 use Parse::CPAN::Meta;
19 use Parse::CPAN::Meta::Test;
72 is(Parse::CPAN::Meta->yaml_backend(), 'CPAN::Meta::YAML', 'yaml_backend(): CPAN::Meta::YAML');
73 my $from_yaml = Parse::CPAN::Meta->load_file( $meta_yaml );
81 is(Parse::CPAN::Meta->yaml_backend(), 'CPAN::Meta::YAML', 'yaml_backend(): CPAN::Meta::YAML');
82 my $from_yaml = Parse::CPAN::Meta->load_file( $yaml_meta );
90 is(Parse::CPAN::Meta->yaml_backend(), 'CPAN::Meta::YAML', 'yaml_backend(): CPAN::Meta::YAML');
91 my $from_yaml = Parse::CPAN::Meta->load_file( $bare_yaml_meta );
99 is(Parse::CPAN::Meta->yaml_backend(), 'CPAN::Meta::YAML', 'yaml_backend(): CPAN::Meta::YAML');
100 my $from_yaml = Parse::CPAN::Meta->load_file( $CL018_yaml_meta );
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN/t/
D02nox.t12 $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' );
D32pushyhttps.t15 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";
78 my $getmodule = "CPAN::Test::Dummy::Perl5::Make";
79 my $getdistro_qr = qr(CPAN-Test-Dummy-Perl5-Make);
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/HTTP/
DCredentials.pm3 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};
33 $PROXY_PASSWORD = $CPAN::Config->{proxy_pass} || "";
51 if ( defined $CPAN::Config->{username} ) {
52 $USER = $CPAN::Config->{username};
53 $PASSWORD = $CPAN::Config->{password} || "";
73 if ($CPAN::META->has_inst("Term::ReadKey")) {
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN/lib/App/
DCpan.pm290 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, @_ ) } }
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN-Meta/lib/CPAN/
DMeta.pm4 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 );
231 my $cmv = CPAN::Meta::Validator->new( $struct );
244 my $cmc = CPAN::Meta::Converter->new( $struct );
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/Plugin/
DSpecfile.pm54 package CPAN::Plugin::Specfile;
80 $self->dir_default(File::Spec->catdir($CPAN::Config->{cpan_home},"plugins",__PACKAGE__));
88 unless ($CPAN::META->has_inst("CPAN::DistnameInfo")){
89 $CPAN::Frontend->mydie("CPAN::DistnameInfo not installed; cannot continue");
91 my $d = CPAN::Shell->expand("Distribution",$distribution)
92 or $CPAN::Frontend->mydie("Unknowns distribution '$distribution'\n");
93 …my $build_dir = $d->{build_dir} or $CPAN::Frontend->mydie("Distribution has not been built yet, ca…
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);
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/LWP/
DUserAgent.pm3 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/src/gnu/usr.bin/perl/cpan/CPAN-Meta/t/
Dconverter.t6 use CPAN::Meta;
7 use CPAN::Meta::Validator;
8 use CPAN::Meta::Converter;
12 use Parse::CPAN::Meta;
35 *_spec_version = \&CPAN::Meta::Converter::_extract_spec_version;
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 );
61 my $cmv = CPAN::Meta::Validator->new( $converted );
[all …]

12345678910>>...15