r2958 - in /packages/libsub-exporter-perl/trunk: Changes META.yml debian/changelog lib/Sub/Exporter.pm lib/Sub/Exporter/Util.pm t/util-curry.t

[eloy at users.alioth.debian.org]

Author: eloy
Date: Tue Jun 13 07:59:53 2006
New Revision: 2958

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=2958
Log:
eloy: new upstream version

Modified:
    packages/libsub-exporter-perl/trunk/Changes
    packages/libsub-exporter-perl/trunk/META.yml
    packages/libsub-exporter-perl/trunk/debian/changelog
    packages/libsub-exporter-perl/trunk/lib/Sub/Exporter.pm
    packages/libsub-exporter-perl/trunk/lib/Sub/Exporter/Util.pm
    packages/libsub-exporter-perl/trunk/t/util-curry.t

Modified: packages/libsub-exporter-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libsub-exporter-perl/trunk/Changes?rev=2958&op=diff
==============================================================================
--- packages/libsub-exporter-perl/trunk/Changes (original)
+++ packages/libsub-exporter-perl/trunk/Changes Tue Jun 13 07:59:53 2006
@@ -1,4 +1,7 @@
 Revision history for Sub-Exporter
+
+0.965   2006-06-05
+        curry_class now allows the export to curry a differently-named method
 
 0.961   2006-06-05
         Data::OptList is now in its own dist; updated to use it

Modified: packages/libsub-exporter-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libsub-exporter-perl/trunk/META.yml?rev=2958&op=diff
==============================================================================
--- packages/libsub-exporter-perl/trunk/META.yml (original)
+++ packages/libsub-exporter-perl/trunk/META.yml Tue Jun 13 07:59:53 2006
@@ -11,4 +11,4 @@
   Data::OptList: 0.1
   Params::Util: 0.14
   Sub::Install: 0.92
-version: 0.961
+version: 0.965

Modified: packages/libsub-exporter-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libsub-exporter-perl/trunk/debian/changelog?rev=2958&op=diff
==============================================================================
--- packages/libsub-exporter-perl/trunk/debian/changelog (original)
+++ packages/libsub-exporter-perl/trunk/debian/changelog Tue Jun 13 07:59:53 2006
@@ -1,3 +1,10 @@
+libsub-exporter-perl (0.96.5-1) unstable; urgency=low
+
+  * New upstream release
+  * Not uploaded - waits for libdata-optlist-perl
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org>  Tue, 13 Jun 2006 09:57:33 +0200
+
 libsub-exporter-perl (0.96.1-1) unstable; urgency=low
 
   * New upstream release (closes: #370695)

Modified: packages/libsub-exporter-perl/trunk/lib/Sub/Exporter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libsub-exporter-perl/trunk/lib/Sub/Exporter.pm?rev=2958&op=diff
==============================================================================
--- packages/libsub-exporter-perl/trunk/lib/Sub/Exporter.pm (original)
+++ packages/libsub-exporter-perl/trunk/lib/Sub/Exporter.pm Tue Jun 13 07:59:53 2006
@@ -14,13 +14,13 @@
 
 =head1 VERSION
 
-version 0.961
+version 0.965
 
   $Id: /my/cs/projects/export/trunk/lib/Sub/Exporter.pm 22106 2006-06-05T14:19:07.111533Z rjbs  $
 
 =cut
 
-our $VERSION = '0.961';
+our $VERSION = '0.965';
 
 =head1 SYNOPSIS
 

Modified: packages/libsub-exporter-perl/trunk/lib/Sub/Exporter/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libsub-exporter-perl/trunk/lib/Sub/Exporter/Util.pm?rev=2958&op=diff
==============================================================================
--- packages/libsub-exporter-perl/trunk/lib/Sub/Exporter/Util.pm (original)
+++ packages/libsub-exporter-perl/trunk/lib/Sub/Exporter/Util.pm Tue Jun 13 07:59:53 2006
@@ -9,13 +9,13 @@
 
 =head1 VERSION
 
-version 0.01
+version 0.015
 
   $Id$
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.015';
 
 =head1 DESCRIPTION
 
@@ -50,11 +50,19 @@
 If Some::Module is subclassed and the subclass's import method is called to
 import C<some_method>, the subclass will be curried in as the invocant.
 
+If an argument is provided for C<curry_class> it is used as the name of the
+curried method to export.  This means you could export a Widget constructor
+like this:
+
+  exports => { widget => curry_class('new') }
+
 =cut
 
 sub curry_class {
+  my $override_name = shift;
   sub {
     my ($class, $name) = @_;
+    $name = $override_name if defined $override_name;
     sub { $class->$name(@_); };
   }
 }

Modified: packages/libsub-exporter-perl/trunk/t/util-curry.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libsub-exporter-perl/trunk/t/util-curry.t?rev=2958&op=diff
==============================================================================
--- packages/libsub-exporter-perl/trunk/t/util-curry.t (original)
+++ packages/libsub-exporter-perl/trunk/t/util-curry.t Tue Jun 13 07:59:53 2006
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 8;
+use Test::More tests => 9;
 BEGIN { use_ok("Sub::Exporter"); }
 
   BEGIN {
@@ -11,6 +11,7 @@
     use Sub::Exporter -setup => {
       exports => {
         return_invocant => curry_class,
+        talkback        => curry_class('return_invocant'),
       },
     };
 
@@ -65,3 +66,13 @@
   'Thing::Subclass',
   'return of method class-curried from Thing::Subclass is Thing::Subclass'
 );
+
+package Test::SubExporter::CURRY::2;
+
+BEGIN { Thing->import(qw(talkback)); }
+
+main::is(
+  talkback(),
+  'Thing',
+  'imported talkback acts like return_invocant'
+);