r42221 - in /trunk/libapp-cmd-perl: ./ debian/ lib/App/ lib/App/Cmd/ lib/App/Cmd/Command/ lib/App/Cmd/Subdispatch/
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Thu Aug 20 21:25:18 UTC 2009
Author: ryan52-guest
Date: Thu Aug 20 21:25:11 2009
New Revision: 42221
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=42221
Log:
New upstream release
Modified:
trunk/libapp-cmd-perl/Changes
trunk/libapp-cmd-perl/META.yml
trunk/libapp-cmd-perl/Makefile.PL
trunk/libapp-cmd-perl/debian/changelog
trunk/libapp-cmd-perl/lib/App/Cmd.pm
trunk/libapp-cmd-perl/lib/App/Cmd/ArgProcessor.pm
trunk/libapp-cmd-perl/lib/App/Cmd/Command.pm
trunk/libapp-cmd-perl/lib/App/Cmd/Command/commands.pm
trunk/libapp-cmd-perl/lib/App/Cmd/Command/help.pm
trunk/libapp-cmd-perl/lib/App/Cmd/Simple.pm
trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch.pm
trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch/DashedStyle.pm
Modified: trunk/libapp-cmd-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/Changes?rev=42221&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/Changes (original)
+++ trunk/libapp-cmd-perl/Changes Thu Aug 20 21:25:11 2009
@@ -1,4 +1,7 @@
Revision history for App-Cmd
+
+0.206 2009-08-19
+ add a ->description to commands (thanks Jerome Quelin)
0.205 2009-08-18
add the long-missing arg0 and full_arg0 accessors (resolves 35528)
Modified: trunk/libapp-cmd-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/META.yml?rev=42221&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/META.yml (original)
+++ trunk/libapp-cmd-perl/META.yml Thu Aug 20 21:25:11 2009
@@ -21,7 +21,7 @@
- t
- xt
requires:
- Getopt::Long::Descriptive: 0.06
+ Getopt::Long::Descriptive: 0.075
Module::Pluggable::Object: 0
Sub::Exporter: 0.975
Sub::Install: 0
@@ -29,4 +29,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: http://github.com/rjbs/app-cmd
-version: 0.205
+version: 0.206
Modified: trunk/libapp-cmd-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/Makefile.PL?rev=42221&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/Makefile.PL (original)
+++ trunk/libapp-cmd-perl/Makefile.PL Thu Aug 20 21:25:11 2009
@@ -2,7 +2,7 @@
all_from('lib/App/Cmd.pm');
-requires('Getopt::Long::Descriptive' => 0.06); # numerous bug fixes
+requires('Getopt::Long::Descriptive' => 0.075); # leader_text, option_text
requires('Module::Pluggable::Object' => 0.00);
requires('Sub::Exporter' => 0.975); # curry_method
requires('Sub::Install' => 0.00); # minimum unknown
Modified: trunk/libapp-cmd-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/debian/changelog?rev=42221&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/debian/changelog (original)
+++ trunk/libapp-cmd-perl/debian/changelog Thu Aug 20 21:25:11 2009
@@ -1,5 +1,6 @@
-libapp-cmd-perl (0.205-1) UNRELEASED; urgency=low
+libapp-cmd-perl (0.206-1) UNRELEASED; urgency=low
+ [ Salvatore Bonaccorso ]
* New upstream release
* debian/control: Changed: Replace versioned (build-)dependency on
perl (>= 5.6.0-{12,16}) with an unversioned dependency on perl (as
@@ -7,7 +8,10 @@
* Bump Standards-Version to 3.8.3.
- Drop versioned build dependency on perl.
- -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com> Thu, 20 Aug 2009 09:46:13 +0200
+ [ Ryan Niebur ]
+ * New upstream release
+
+ -- Ryan Niebur <ryanryan52 at gmail.com> Thu, 20 Aug 2009 14:24:58 -0700
libapp-cmd-perl (0.204-1) unstable; urgency=low
Modified: trunk/libapp-cmd-perl/lib/App/Cmd.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/lib/App/Cmd.pm?rev=42221&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd.pm Thu Aug 20 21:25:11 2009
@@ -47,11 +47,11 @@
=head1 VERSION
-version 0.205
-
-=cut
-
-our $VERSION = '0.205';
+version 0.206
+
+=cut
+
+our $VERSION = '0.206';
=head1 SYNOPSIS
Modified: trunk/libapp-cmd-perl/lib/App/Cmd/ArgProcessor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/lib/App/Cmd/ArgProcessor.pm?rev=42221&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/ArgProcessor.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/ArgProcessor.pm Thu Aug 20 21:25:11 2009
@@ -9,11 +9,11 @@
=head1 VERSION
-version 0.205
+version 0.206
=cut
-our $VERSION = '0.205';
+our $VERSION = '0.206';
sub _process_args {
my ($class, $args, @params) = @_;
Modified: trunk/libapp-cmd-perl/lib/App/Cmd/Command.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/lib/App/Cmd/Command.pm?rev=42221&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/Command.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/Command.pm Thu Aug 20 21:25:11 2009
@@ -11,11 +11,11 @@
=head1 VERSION
-version 0.205
-
-=cut
-
-our $VERSION = '0.205';
+version 0.206
+
+=cut
+
+our $VERSION = '0.206';
use Carp ();
@@ -217,6 +217,18 @@
return $result || "(unknown)";
}
+=head2 description
+
+This method should be overridden to provide full option description. It
+is used by the help command.
+
+If not overridden, it returns an empty string.
+
+=cut
+
+sub description { '' }
+
+
=head1 AUTHOR AND COPYRIGHT
See L<App::Cmd>.
Modified: trunk/libapp-cmd-perl/lib/App/Cmd/Command/commands.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/lib/App/Cmd/Command/commands.pm?rev=42221&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/Command/commands.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/Command/commands.pm Thu Aug 20 21:25:11 2009
@@ -11,11 +11,11 @@
=head1 VERSION
-version 0.205
+version 0.206
=cut
-our $VERSION = 0.205;
+our $VERSION = 0.206;
=head1 DESCRIPTION
@@ -85,4 +85,9 @@
return (\@head, \@tail);
}
+sub description {
+"This command will list all of commands available and their abstracts.\n";
+}
+
+
1;
Modified: trunk/libapp-cmd-perl/lib/App/Cmd/Command/help.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/lib/App/Cmd/Command/help.pm?rev=42221&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/Command/help.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/Command/help.pm Thu Aug 20 21:25:11 2009
@@ -11,22 +11,27 @@
=head1 VERSION
-version 0.205
+version 0.206
=cut
-our $VERSION = '0.205';
+our $VERSION = '0.206';
=head1 DESCRIPTION
This command plugin implements a "help" command. This command will either list
all of an App::Cmd's commands and their abstracts, or display the usage screen
-for a subcommand.
+for a subcommand with its description.
=cut
+sub command_names { qw/help --help -h -?/ }
-sub command_names { qw/help --help -h -?/ }
+sub description {
+"This command will either list all of the application commands and their
+abstracts, or display the usage screen for a subcommand with its
+description.\n"
+}
sub run {
my ($self, $opts, $args) = @_;
@@ -51,7 +56,17 @@
$self->app->execute_command( $self->app->_prepare_command("commands") );
} else {
my ($cmd, $opt, $args) = $self->app->prepare_command(@$args);
- print $cmd->_usage_text;
+
+ local $@;
+ my $desc = $cmd->description;
+ $desc = "\n$desc" if length $desc;
+
+ my $ut = join "\n",
+ eval { $cmd->usage->leader_text },
+ $desc,
+ eval { $cmd->usage->option_text };
+
+ print $ut;
}
}
Modified: trunk/libapp-cmd-perl/lib/App/Cmd/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/lib/App/Cmd/Simple.pm?rev=42221&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/Simple.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/Simple.pm Thu Aug 20 21:25:11 2009
@@ -5,7 +5,7 @@
use App::Cmd::Command;
BEGIN { our @ISA = 'App::Cmd::Command' }
-our $VERSION = '0.205';
+our $VERSION = '0.206';
use App::Cmd;
use Sub::Install;
Modified: trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch.pm?rev=42221&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch.pm Thu Aug 20 21:25:11 2009
@@ -13,11 +13,11 @@
=head1 VERSION
-version 0.205
+version 0.206
=cut
-our $VERSION = '0.205';
+our $VERSION = '0.206';
=head1 METHODS
Modified: trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch/DashedStyle.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch/DashedStyle.pm?rev=42221&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch/DashedStyle.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch/DashedStyle.pm Thu Aug 20 21:25:11 2009
@@ -11,11 +11,11 @@
=head1 VERSION
-version 0.205
+version 0.206
=cut
-our $VERSION = '0.205';
+our $VERSION = '0.206';
=head1 METHODS
More information about the Pkg-perl-cvs-commits
mailing list