The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

THALJEF / Pinto-0.09992_01 / lib / App / Pinto / Command / lock.pm 

            

              
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

              
# ABSTRACT: mark a stack as read-only
package App::Pinto::Command::lock;
use strict;
use warnings;
#-----------------------------------------------------------------------------
use base 'App::Pinto::Command';
#------------------------------------------------------------------------------
our $VERSION = '0.09992_01'; # VERSION
#------------------------------------------------------------------------------
sub opt_spec {
    my ( $self, $app ) = @_;
    return ( [ 'stack|s=s' => 'Lock 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
=head1 NAME
App::Pinto::Command::lock - mark a stack as read-only
=head1 VERSION
version 0.09992_01
=head1 SYNOPSIS
  pinto --root=REPOSITORY_ROOT lock [OPTIONS]
=head1 DESCRIPTION
This command locks a stack so that its packages cannot be changed. It
is typically used with the L<copy|App::Pinto::Command::copy> command
to effectively create a read-only "tag" of a stack.
To unlock a stack, use the L<unlock|App::Pinto::Command::unlock> 
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 lock --stack dev
  pinto --root REPOSITORY_ROOT lock dev
A stack specified as an argument in this fashion will override any
stack specified with the C<--stack> option.  If a stack is not
specified by neither argument nor option, then it defaults to the
stack that is currently marked as the default stack.
=head1 COMMAND OPTIONS
=over 4
=item --stack NAME
=item -s NAME
Lock 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