r59187 - in /trunk/libmoosex-method-signatures-perl: Changes META.yml debian/changelog lib/MooseX/Method/Signatures.pm lib/MooseX/Method/Signatures/Meta/Method.pm t/meta.t
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Fri Jun 11 14:19:57 UTC 2010
Author: ansgar-guest
Date: Fri Jun 11 14:19:47 2010
New Revision: 59187
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=59187
Log:
New upstream release.
Modified:
trunk/libmoosex-method-signatures-perl/Changes
trunk/libmoosex-method-signatures-perl/META.yml
trunk/libmoosex-method-signatures-perl/debian/changelog
trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures.pm
trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures/Meta/Method.pm
trunk/libmoosex-method-signatures-perl/t/meta.t
Modified: trunk/libmoosex-method-signatures-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-method-signatures-perl/Changes?rev=59187&op=diff
==============================================================================
--- trunk/libmoosex-method-signatures-perl/Changes (original)
+++ trunk/libmoosex-method-signatures-perl/Changes Fri Jun 11 14:19:47 2010
@@ -1,4 +1,8 @@
Version history for MooseX::Method::Signatures
+
+0.34 Tue, 08 Jun 2010 14:00:00 -0300
+ * Provides a version of reify that replaces the original version and
+ now finally CatalystX::Declare and MooseX::MultiMethods work.
0.33 Thu, 01 Jun 2010 13:47:34 -0300
* CatalystX::Declare seems to create a method object without a code
Modified: trunk/libmoosex-method-signatures-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-method-signatures-perl/META.yml?rev=59187&op=diff
==============================================================================
--- trunk/libmoosex-method-signatures-perl/META.yml (original)
+++ trunk/libmoosex-method-signatures-perl/META.yml Fri Jun 11 14:19:47 2010
@@ -41,4 +41,4 @@
bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-Method-Signatures
license: http://dev.perl.org/licenses/
repository: git://github.com/rafl/moosex-method-signatures.git
-version: 0.33
+version: 0.34
Modified: trunk/libmoosex-method-signatures-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-method-signatures-perl/debian/changelog?rev=59187&op=diff
==============================================================================
--- trunk/libmoosex-method-signatures-perl/debian/changelog (original)
+++ trunk/libmoosex-method-signatures-perl/debian/changelog Fri Jun 11 14:19:47 2010
@@ -1,3 +1,9 @@
+libmoosex-method-signatures-perl (0.34-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Fri, 11 Jun 2010 23:16:48 +0900
+
libmoosex-method-signatures-perl (0.33-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures.pm?rev=59187&op=diff
==============================================================================
--- trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures.pm (original)
+++ trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures.pm Fri Jun 11 14:19:47 2010
@@ -19,7 +19,7 @@
use namespace::autoclean;
-our $VERSION = '0.33';
+our $VERSION = '0.34';
has package => (
is => 'ro',
Modified: trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures/Meta/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures/Meta/Method.pm?rev=59187&op=diff
==============================================================================
--- trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures/Meta/Method.pm (original)
+++ trunk/libmoosex-method-signatures-perl/lib/MooseX/Method/Signatures/Meta/Method.pm Fri Jun 11 14:19:47 2010
@@ -176,12 +176,16 @@
sub reify {
my $self = shift;
+ my %args = @_;
my %other_args = %{$self};
delete $other_args{body};
delete $other_args{actual_body};
- return $self->meta->name->wrap($self->body, %other_args, @_);
+ my $body = delete $args{body} || delete $args{actual_body} || $self->body;
+ my %final_args = (%other_args, %args);
+
+ return $self->meta->name->wrap($body, %final_args);
}
sub _build_parsed_signature {
Modified: trunk/libmoosex-method-signatures-perl/t/meta.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-method-signatures-perl/t/meta.t?rev=59187&op=diff
==============================================================================
--- trunk/libmoosex-method-signatures-perl/t/meta.t (original)
+++ trunk/libmoosex-method-signatures-perl/t/meta.t Fri Jun 11 14:19:47 2010
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More tests => 8;
+use Test::More tests => 10;
use Test::Exception;
use MooseX::Method::Signatures::Meta::Method;
@@ -62,20 +62,34 @@
# CatalystX::Declare seems to create a method without a code at all.
lives_and(sub {
- package Bar;
+ package Baz;
use metaclass;
my $method = MooseX::Method::Signatures::Meta::Method->wrap(
signature => '($class: Int :$foo, Str :$bar)',
package_name => __PACKAGE__,
- name => 'bar',
+ name => 'baz',
);
::isa_ok($method, 'Moose::Meta::Method');
# CatalystX::Declare uses reify directly. too bad.
my $other = $method->reify
- ( actual_body => sub { },
+ ( actual_body => sub {
+ my ($self, $foo, $bar) = @_;
+ return $bar x $foo;
+ },
);
::isa_ok($method, 'Moose::Meta::Method');
+
+ Baz->meta->add_method(baz => $other);
});
+
+lives_and(sub {
+ is(Baz->baz(foo => 3, bar => 'baz'), 'bazbazbaz');
+});
+
+dies_ok(sub {
+ Baz->baz(foo => 'moo', bar => 'baz');
+});
+
More information about the Pkg-perl-cvs-commits
mailing list