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
eloy at users.alioth.debian.org
Tue Jun 13 07:59:53 UTC 2006
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'
+);
More information about the Pkg-perl-cvs-commits
mailing list