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