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
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
|
# ABSTRACT: create a new repository
package App::Pinto::Command::init;
use strict;
use warnings;
use Class::Load;
use Pinto::Util qw(is_remote_repo);
#-----------------------------------------------------------------------------
use base 'App::Pinto::Command';
#------------------------------------------------------------------------------
our $VERSION = '0.14'; # VERSION
#------------------------------------------------------------------------------
sub opt_spec {
my ( $self, $app ) = @_;
return (
[ 'description=s' => 'Description of the initial stack' ],
[ 'no-default' => 'Do not mark the initial stack as the default' ],
[ 'recurse!' => 'Default recursive behavior (negatable)' ],
[ 'source=s@' => 'URI of upstream repository (repeatable)' ],
[ 'stack=s' => 'Name of the initial stack' ],
[ 'target-perl-version|tpv=s' => 'Default perl version for new stacks' ],
);
}
#------------------------------------------------------------------------------
sub validate_args {
my ( $self, $opts, $args ) = @_;
$self->usage_error('Only one argument is allowed')
if @{$args} > 1;
return 1;
}
#------------------------------------------------------------------------------
sub execute {
my ( $self, $opts, $args ) = @_;
my $global_opts = $self->app->global_options;
die "Must specify a repository root directory\n"
unless $global_opts->{root} ||=
($args->[0] || $ENV{PINTO_REPOSITORY_ROOT});
die "Cannot create remote repositories\n"
if is_remote_repo( $global_opts->{root} );
# Combine repeatable "source" options into one space-delimited "sources" option.
# TODO: Use a config file format that allows multiple values per key (MVP perhaps?).
$opts->{sources} = join ' ', @{ delete $opts->{source} } if defined $opts->{source};
my $initializer = $self->load_initializer->new;
$initializer->init( %{$global_opts}, %{$opts} );
return 0;
}
#------------------------------------------------------------------------------
sub load_initializer {
my $class = 'Pinto::Initializer';
my ( $ok, $error ) = Class::Load::try_load_class($class);
return $class if $ok;
my $msg = $error =~ m/Can't locate .* in \@INC/ ## no critic (ExtendedFormatting)
? "Must install Pinto to create new repositories\n"
: $error;
die $msg;
}
#------------------------------------------------------------------------------
1;
__END__
=pod
=encoding UTF-8
=for :stopwords Jeffrey Ryan Thalhammer
=head1 NAME
App::Pinto::Command::init - create a new repository
=head1 VERSION
version 0.14
=head1 SYNOPSIS
pinto --root=REPOSITORY_ROOT init [OPTIONS]
=head1 DESCRIPTION
This command creates a new repository. If the target directory does not
exist, it will be created for you. If it does already exist, then it must be
empty. You can set the configuration properties of the new repository using
the command line options listed below.
=head1 COMMAND ARGUMENTS
The path to the repository root directory can also be be given as an argument,
which will silently override the C<--root> option. So the following are
equivalent:
pinto --root=/some/directory init
pinto init /some/directory
=head1 COMMAND OPTIONS
=over 4
=item --description=TEXT
A brief description of the initial stack. Defaults to "the initial stack".
This option is only allowed if the C<STACK> argument is given.
=item --no-default
Do not mark the initial stack as the default stack. If you choose not to mark
the default stack, then you'll be required to specify the C<--stack> option
for most commands. You can always mark (or unmark) the default stack at any
time by using the L<default|App::Pinto::Command::default> command.
=item --recurse
=item --no-recurse
Sets the default recursion behavior for the L<pull|App::Pinto::Command::pull>
add L<add|App::Pinto::Command::add> commands. C<--recurse> means that
commands will be recursive by default. C<--no-recurse> means commands will
not be recursive. If you do not specify either of these, it defaults to
being recursive. However, each command can always override this default.
=item --source=URI
The URI of the upstream repository where distributions will be pulled from.
This is usually the URI of a CPAN mirror, and it defaults to
L<http://cpan.perl.org> and L<http://backpan.perl.org>. But it could also be
a L<CPAN::Mini> mirror, or another L<Pinto> repository.
You can specify multiple repository URIs by repeating the C<--source> option.
Repositories that appear earlier in the list have priority over those that
appear later. See L<Pinto::Manual> for more information about using multiple
upstream repositories.
=item --stack=NAME
Sets the name of the initial stack. Stack names must be alphanumeric plus
hyphens, underscores, and periods, and are not case-sensitive. Defaults to
C<master>.
=back
=head1 AUTHOR
Jeffrey Ryan Thalhammer <jeff@stratopan.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2015 by Jeffrey Ryan Thalhammer.
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
|
