1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
use strict;
use warnings;
package CPAN::Mini::App;
our $VERSION = '1.100630';
# ABSTRACT: the guts of the minicpan command
use CPAN::Mini;
use File::HomeDir;
use File::Spec;
use Getopt::Long qw(:config no_ignore_case);
use Pod::Usage 1.00;
sub _display_version {
my $class = shift;
no strict 'refs';
print "minicpan",
($class ne 'CPAN::Mini' ? ' (from CPAN::Mini)' : q{}),
", powered by $class ", $class->VERSION, "\n\n";
exit;
}
sub run {
my $version;
my %commandline;
GetOptions(
"c|class=s" => \$commandline{class},
"C|config=s" => \$commandline{config_file},
"h|help" => sub { pod2usage(1); },
"v|version" => sub { $version = 1 },
"l|local=s" => \$commandline{local},
"r|remote=s" => \$commandline{remote},
"d|dirmode=s" => \$commandline{dirmode},
"qq" => sub { $commandline{quiet} = 2; $commandline{errors} = 0; },
'offline' => \$commandline{offline},
"q+" => \$commandline{quiet},
"f+" => \$commandline{force},
"p+" => \$commandline{perl},
"x+" => \$commandline{exact_mirror},
) or pod2usage(2);
my %config = CPAN::Mini->read_config(\%commandline);
$config{class} ||= 'CPAN::Mini';
foreach my $key (keys %commandline) {
$config{$key} = $commandline{$key} if defined $commandline{$key};
}
eval "require $config{class}";
die $@ if $@;
_display_version($config{class}) if $version;
pod2usage(2) unless $config{local} and $config{remote};
$|++;
$config{dirmode} &&= oct($config{dirmode});
$config{class}->update_mirror(
remote => $config{remote},
local => $config{local},
trace => (not $config{quiet}),
force => $config{force},
offline => $config{offline},
also_mirror => $config{also_mirror},
exact_mirror => $config{exact_mirror},
module_filters => $config{module_filters},
path_filters => $config{path_filters},
skip_cleanup => $config{skip_cleanup},
skip_perl => (not $config{perl}),
ignore_source_control => $config{ignore_source_control},
(defined $config{dirmode} ? (dirmode => $config{dirmode}) : ()),
(defined $config{errors} ? (errors => $config{errors}) : ()),
);
}
1;
__END__
=pod
=head1 NAME
CPAN::Mini::App - the guts of the minicpan command
=head1 VERSION
version 1.100630
=head1 SYNOPSIS
#!/usr/bin/perl
use CPAN::Mini::App;
CPAN::Mini::App->run;
=head1 METHODS
=head2 run
This method is called by F<minicpan> to do all the work. Don't rely on what it
does just yet.
=head1 SEE ALSO
Randal Schwartz's original article, which can be found here:
http://www.stonehenge.com/merlyn/LinuxMag/col42.html
=head1 AUTHORS
Ricardo SIGNES <rjbs@cpan.org>
Randal Schwartz <merlyn@stonehenge.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2010 by Ricardo SIGNES.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
