r43076 - in /trunk/libapp-cmd-perl: ./ debian/ lib/App/ lib/App/Cmd/ lib/App/Cmd/Command/ lib/App/Cmd/Subdispatch/ t/ t/lib/Test/ t/lib/Test/MyCmdAbbrev/

ryan52-guest at users.alioth.debian.org ryan52-guest at users.alioth.debian.org
Fri Aug 28 01:24:49 UTC 2009 

Author: ryan52-guest
Date: Fri Aug 28 01:24:42 2009
New Revision: 43076

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43076
Log:
New upstream release

Added:
    trunk/libapp-cmd-perl/t/abbrev.t
      - copied unchanged from r43075, branches/upstream/libapp-cmd-perl/current/t/abbrev.t
    trunk/libapp-cmd-perl/t/lib/Test/MyCmdAbbrev/
      - copied from r43075, branches/upstream/libapp-cmd-perl/current/t/lib/Test/MyCmdAbbrev/
    trunk/libapp-cmd-perl/t/lib/Test/MyCmdAbbrev.pm
      - copied unchanged from r43075, branches/upstream/libapp-cmd-perl/current/t/lib/Test/MyCmdAbbrev.pm
Modified:
    trunk/libapp-cmd-perl/Changes
    trunk/libapp-cmd-perl/MANIFEST
    trunk/libapp-cmd-perl/META.yml
    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
    trunk/libapp-cmd-perl/t/00-load.t
    trunk/libapp-cmd-perl/t/basic.t
    trunk/libapp-cmd-perl/t/simple-require.t
    trunk/libapp-cmd-perl/t/simple-use.t

Modified: trunk/libapp-cmd-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/Changes?rev=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/Changes (original)
+++ trunk/libapp-cmd-perl/Changes Fri Aug 28 01:24:42 2009
@@ -1,7 +1,11 @@
 Revision history for App-Cmd
 
+0.207     2009-09-27
+          add option to allow any unambiguous command abbreviation
+          (thanks, Jerome Quelin)
+
 0.206     2009-08-19
-          add a ->description to commands (thanks Jerome Quelin)
+          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/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/MANIFEST?rev=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/MANIFEST (original)
+++ trunk/libapp-cmd-perl/MANIFEST Fri Aug 28 01:24:42 2009
@@ -27,6 +27,7 @@
 META.yml
 README
 t/00-load.t
+t/abbrev.t
 t/basic.t
 t/lib/Test/MyCmd.pm
 t/lib/Test/MyCmd/Command/frobulate.pm
@@ -35,6 +36,10 @@
 t/lib/Test/MyCmd2.pm
 t/lib/Test/MyCmd2/Command/foo.pm
 t/lib/Test/MyCmd2/Command/foo/bar.pm
+t/lib/Test/MyCmdAbbrev.pm
+t/lib/Test/MyCmdAbbrev/Command/bar.pm
+t/lib/Test/MyCmdAbbrev/Command/baz.pm
+t/lib/Test/MyCmdAbbrev/Command/foo.pm
 t/lib/Test/MySimple.pm
 t/lib/Test/WithSetup.pm
 t/lib/Test/WithSetup/Command.pm

Modified: trunk/libapp-cmd-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/META.yml?rev=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/META.yml (original)
+++ trunk/libapp-cmd-perl/META.yml Fri Aug 28 01:24:42 2009
@@ -29,4 +29,4 @@
 resources:
   license: http://dev.perl.org/licenses/
   repository: http://github.com/rjbs/app-cmd
-version: 0.206
+version: 0.207

Modified: trunk/libapp-cmd-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/debian/changelog?rev=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/debian/changelog (original)
+++ trunk/libapp-cmd-perl/debian/changelog Fri Aug 28 01:24:42 2009
@@ -1,3 +1,9 @@
+libapp-cmd-perl (0.207-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Ryan Niebur <ryanryan52 at gmail.com>  Thu, 27 Aug 2009 18:24:33 -0700
+
 libapp-cmd-perl (0.206-1) unstable; urgency=low
 
   [ Salvatore Bonaccorso ]

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=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd.pm Fri Aug 28 01:24:42 2009
@@ -8,6 +8,7 @@
 
 use File::Basename ();
 use Module::Pluggable::Object ();
+use Text::Abbrev;
 
 use Sub::Exporter -setup => {
   collectors => {
@@ -47,11 +48,11 @@
 
 =head1 VERSION
 
-version 0.206
-
-=cut
-
-our $VERSION = '0.206';
+version 0.207
+
+=cut
+
+our $VERSION = '0.207';
 
 =head1 SYNOPSIS
 
@@ -175,6 +176,12 @@
   }
 
   $self->_load_default_plugin($_, $arg, \%plugin) for qw(commands help);
+
+  if ($self->allow_any_unambiguous_abbrev) {
+    # add abbreviations to list of authorized commands
+    my %abbrev = abbrev keys %plugin;
+    @plugin{ keys %abbrev } = @plugin{ values %abbrev };
+  }
 
   return \%plugin;
 }
@@ -405,6 +412,23 @@
   }
 }
 
+=head2 allow_any_unambiguous_abbrev
+
+If this method returns true (which, by default, it does I<not>), then any
+unambiguous abbreviation for a registered command name will be allowed as a
+means to use that command.  For example, given the following commands:
+
+  reticulate
+  reload
+  rasterize
+
+Then the user could use C<ret> for C<reticulate> or C<ra> for C<rasterize> and
+so on.
+
+=cut
+
+sub allow_any_unambiguous_abbrev { return 0 }
+
 =head2 global_options
 
   if ($cmd->app->global_options->{verbose}) { ... }

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=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/ArgProcessor.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/ArgProcessor.pm Fri Aug 28 01:24:42 2009
@@ -9,11 +9,11 @@
 
 =head1 VERSION
 
-version 0.206
+version 0.207
 
 =cut
 
-our $VERSION = '0.206';
+our $VERSION = '0.207';
 
 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=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/Command.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/Command.pm Fri Aug 28 01:24:42 2009
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-version 0.206
-
-=cut
-
-our $VERSION = '0.206';
+version 0.207
+
+=cut
+
+our $VERSION = '0.207';
 
 use Carp ();
 

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=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/Command/commands.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/Command/commands.pm Fri Aug 28 01:24:42 2009
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-version 0.206
+version 0.207
 
 =cut
 
-our $VERSION = 0.206;
+our $VERSION = 0.207;
 
 =head1 DESCRIPTION
 

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=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/Command/help.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/Command/help.pm Fri Aug 28 01:24:42 2009
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-version 0.206
+version 0.207
 
 =cut
 
-our $VERSION = '0.206';
+our $VERSION = '0.207';
 
 =head1 DESCRIPTION
 

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=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/Simple.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/Simple.pm Fri Aug 28 01:24:42 2009
@@ -5,7 +5,7 @@
 use App::Cmd::Command;
 BEGIN { our @ISA = 'App::Cmd::Command' }
 
-our $VERSION = '0.206';
+our $VERSION = '0.207';
 
 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=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch.pm Fri Aug 28 01:24:42 2009
@@ -13,11 +13,11 @@
 
 =head1 VERSION
 
-version 0.206
+version 0.207
 
 =cut
 
-our $VERSION = '0.206';
+our $VERSION = '0.207';
 
 =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=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch/DashedStyle.pm (original)
+++ trunk/libapp-cmd-perl/lib/App/Cmd/Subdispatch/DashedStyle.pm Fri Aug 28 01:24:42 2009
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-version 0.206
+version 0.207
 
 =cut
 
-our $VERSION = '0.206';
+our $VERSION = '0.207';
 
 =head1 METHODS
 

Modified: trunk/libapp-cmd-perl/t/00-load.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/t/00-load.t?rev=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/t/00-load.t (original)
+++ trunk/libapp-cmd-perl/t/00-load.t Fri Aug 28 01:24:42 2009
@@ -1,4 +1,4 @@
-#!perl -T
+#!perl
 
 use Test::More tests => 5;
 

Modified: trunk/libapp-cmd-perl/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/t/basic.t?rev=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/t/basic.t (original)
+++ trunk/libapp-cmd-perl/t/basic.t Fri Aug 28 01:24:42 2009
@@ -1,4 +1,4 @@
-#!perl -T
+#!perl
 
 use strict;
 use warnings;

Modified: trunk/libapp-cmd-perl/t/simple-require.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/t/simple-require.t?rev=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/t/simple-require.t (original)
+++ trunk/libapp-cmd-perl/t/simple-require.t Fri Aug 28 01:24:42 2009
@@ -1,4 +1,4 @@
-#!perl -T
+#!perl
 use strict;
 use warnings;
 

Modified: trunk/libapp-cmd-perl/t/simple-use.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-cmd-perl/t/simple-use.t?rev=43076&op=diff
==============================================================================
--- trunk/libapp-cmd-perl/t/simple-use.t (original)
+++ trunk/libapp-cmd-perl/t/simple-use.t Fri Aug 28 01:24:42 2009
@@ -1,4 +1,4 @@
-#!perl -T
+#!perl
 use strict;
 use warnings;

More information about the Pkg-perl-cvs-commits mailing list