-
Notifications
You must be signed in to change notification settings - Fork 1
/
update.pm
95 lines (61 loc) · 1.81 KB
/
update.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
#
# This file is part of App-Magpie
#
# This software is copyright (c) 2011 by Jerome Quelin.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use 5.012;
use strict;
use warnings;
package App::Magpie::App::Command::update;
{
$App::Magpie::App::Command::update::VERSION = '1.120960';
}
# ABSTRACT: update a perl module to its latest version
use App::Magpie::App -command;
# -- public methods
sub command_names { qw{ update refresh }; }
sub description {
"Update a perl module package to its latest version, try to rebuild it,
commit and submit if successful."
}
sub opt_spec {
my $self = shift;
return (
[],
$self->verbose_options,
);
}
sub execute {
my ($self, $opts, $args) = @_;
$self->log_init($opts);
require App::Magpie::Action::Update;
App::Magpie::Action::Update->new->run;
}
1;
=pod
=head1 NAME
App::Magpie::App::Command::update - update a perl module to its latest version
=head1 VERSION
version 1.120960
=head1 SYNOPSIS
$ eval $( magpie co -s perl-Foo-Bar )
$ magpie update
# to get list of available options
$ magpie help update
=head1 DESCRIPTION
This command will update a perl module package to its latest version,
try to build it locally, commit and submit if successful.
Note that this command will abort if it finds that the spec is too much
outdated (eg, not using C<%define upstream_version>).
This command requires a C<CPAN::Mini> installation on the computer.
=head1 AUTHOR
Jerome Quelin <jquelin@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Jerome Quelin.
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
__END__