—# ABSTRACT: mark a stack as writable
package
App::Pinto::Command::unlock;
use
strict;
use
warnings;
#-----------------------------------------------------------------------------
#------------------------------------------------------------------------------
our
$VERSION
=
'0.09992_01'
;
# VERSION
#------------------------------------------------------------------------------
sub
opt_spec {
my
(
$self
,
$app
) =
@_
;
return
( [
'stack|s=s'
=>
'Unlock this stack'
], );
}
#------------------------------------------------------------------------------
sub
validate_args {
my
(
$self
,
$opts
,
$args
) =
@_
;
$self
->usage_error(
'Multiple arguments are not allowed'
)
if
@{
$args
} > 1;
$opts
->{stack} =
$args
->[0]
if
$args
->[0];
return
1;
}
#------------------------------------------------------------------------------
1;
__END__
=pod
=encoding UTF-8
=for :stopwords Jeffrey Ryan Thalhammer BenRifkah Fowler Jakob Voss Karen Etheridge Michael
G. Bergsten-Buret Schwern Nikolay Martynov Oleg Gashev Steffen Schwigon
Tommy Stanton Wolfgang Boris Kinkeldei Yanick Champoux brian d foy hesco
popl Däppen Cory G Watson David Steinbrunner Glenn
=head1 NAME
App::Pinto::Command::unlock - mark a stack as writable
=head1 VERSION
version 0.09992_01
=head1 SYNOPSIS
pinto --root=REPOSITORY_ROOT unlock [OPTIONS]
=head1 DESCRIPTION
This command unlocks a stack so that its packages can be changed.
Unlocking a stack does not cause an event in the revision history,
so reverting the stack will not restore the lock. To lock a stack,
use the L<lock|App::Pinto::Command::lock> command.
=head1 COMMAND ARGUMENTS
As an alternative to the C<--stack> option, you can also specify the
stack as an argument. So the following examples are equivalent:
pinto --root REPOSITORY_ROOT unlock --stack dev
pinto --root REPOSITORY_ROOT unlock dev
A stack specified as an argument in this fashion will override any
stack specified with the C<--stack> option.
=head1 COMMAND OPTIONS
=over 4
=item --stack NAME
=item -s NAME
Unlock the stack with the given NAME. Defaults to the name of whichever
stack is currently marked as the default stack. Use the
L<stacks|App::Pinto::Command::stacks> command to see the stacks in the
repository.
=back
=head1 AUTHOR
Jeffrey Ryan Thalhammer <jeff@stratopan.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 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