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