r59183 - in /branches/upstream/libmoosex-method-signatures-perl/current: Changes META.yml 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:07:12 UTC 2010
Author: ansgar-guest
Date: Fri Jun 11 14:06:56 2010
New Revision: 59183
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=59183
Log:
[svn-upgrade] new version libmoosex-method-signatures-perl (0.34)
Modified:
branches/upstream/libmoosex-method-signatures-perl/current/Changes
branches/upstream/libmoosex-method-signatures-perl/current/META.yml
branches/upstream/libmoosex-method-signatures-perl/current/lib/MooseX/Method/Signatures.pm
branches/upstream/libmoosex-method-signatures-perl/current/lib/MooseX/Method/Signatures/Meta/Method.pm
branches/upstream/libmoosex-method-signatures-perl/current/t/meta.t
Modified: branches/upstream/libmoosex-method-signatures-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-method-signatures-perl/current/Changes?rev=59183&op=diff
==============================================================================
--- branches/upstream/libmoosex-method-signatures-perl/current/Changes (original)
+++ branches/upstream/libmoosex-method-signatures-perl/current/Changes Fri Jun 11 14:06:56 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: branches/upstream/libmoosex-method-signatures-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-method-signatures-perl/current/META.yml?rev=59183&op=diff
==============================================================================
--- branches/upstream/libmoosex-method-signatures-perl/current/META.yml (original)
+++ branches/upstream/libmoosex-method-signatures-perl/current/META.yml Fri Jun 11 14:06:56 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: branches/upstream/libmoosex-method-signatures-perl/current/lib/MooseX/Method/Signatures.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-method-signatures-perl/current/lib/MooseX/Method/Signatures.pm?rev=59183&op=diff
==============================================================================
--- branches/upstream/libmoosex-method-signatures-perl/current/lib/MooseX/Method/Signatures.pm (original)
+++ branches/upstream/libmoosex-method-signatures-perl/current/lib/MooseX/Method/Signatures.pm Fri Jun 11 14:06:56 2010
@@ -19,7 +19,7 @@
use namespace::autoclean;
-our $VERSION = '0.33';
+our $VERSION = '0.34';
has package => (
is => 'ro',
Modified: branches/upstream/libmoosex-method-signatures-perl/current/lib/MooseX/Method/Signatures/Meta/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-method-signatures-perl/current/lib/MooseX/Method/Signatures/Meta/Method.pm?rev=59183&op=diff
==============================================================================
--- branches/upstream/libmoosex-method-signatures-perl/current/lib/MooseX/Method/Signatures/Meta/Method.pm (original)
+++ branches/upstream/libmoosex-method-signatures-perl/current/lib/MooseX/Method/Signatures/Meta/Method.pm Fri Jun 11 14:06:56 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: branches/upstream/libmoosex-method-signatures-perl/current/t/meta.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-method-signatures-perl/current/t/meta.t?rev=59183&op=diff
==============================================================================
--- branches/upstream/libmoosex-method-signatures-perl/current/t/meta.t (original)
+++ branches/upstream/libmoosex-method-signatures-perl/current/t/meta.t Fri Jun 11 14:06:56 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