r43380 - in /branches/upstream/libmoosex-declare-perl/current: Changes META.yml Makefile.PL lib/MooseX/Declare.pm t/modifier_order.t

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Tue Sep  1 13:39:14 2009
New Revision: 43380

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43380
Log:
[svn-upgrade] Integrating new upstream version, libmoosex-declare-perl (0.29)

Modified:
    branches/upstream/libmoosex-declare-perl/current/Changes
    branches/upstream/libmoosex-declare-perl/current/META.yml
    branches/upstream/libmoosex-declare-perl/current/Makefile.PL
    branches/upstream/libmoosex-declare-perl/current/lib/MooseX/Declare.pm
    branches/upstream/libmoosex-declare-perl/current/t/modifier_order.t

Modified: branches/upstream/libmoosex-declare-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-declare-perl/current/Changes?rev=43380&op=diff
==============================================================================
--- branches/upstream/libmoosex-declare-perl/current/Changes (original)
+++ branches/upstream/libmoosex-declare-perl/current/Changes Tue Sep  1 13:39:14 2009
@@ -1,3 +1,8 @@
+0.29  Mon, 31 Aug 2009 19:11:25 +0200
+  * Add failing test for applying modifiers to a method directly composed from
+    a role (nperez).
+  * Fix the failing test by depending on MXMS 0.24.
+
 0.28  Thu, 27 Aug 2009 22:44:34 +0200
   * Bump prereqs on MooseX::Method::Signatures, Moose, and namespace::clean in
     order to avoid test failure.

Modified: branches/upstream/libmoosex-declare-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-declare-perl/current/META.yml?rev=43380&op=diff
==============================================================================
--- branches/upstream/libmoosex-declare-perl/current/META.yml (original)
+++ branches/upstream/libmoosex-declare-perl/current/META.yml Tue Sep  1 13:39:14 2009
@@ -25,7 +25,7 @@
   List::MoreUtils: 0
   Moose: 0.89
   MooseX::AttributeHelpers: 0
-  MooseX::Method::Signatures: 0.23
+  MooseX::Method::Signatures: 0.24
   MooseX::Role::Parameterized: 0.12
   MooseX::Types::Moose: 0
   namespace::autoclean: 0.05
@@ -34,4 +34,4 @@
   bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-Declare
   license: http://dev.perl.org/licenses/
   repository: git://github.com/rafl/moosex-declare.git
-version: 0.28
+version: 0.29

Modified: branches/upstream/libmoosex-declare-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-declare-perl/current/Makefile.PL?rev=43380&op=diff
==============================================================================
--- branches/upstream/libmoosex-declare-perl/current/Makefile.PL (original)
+++ branches/upstream/libmoosex-declare-perl/current/Makefile.PL Tue Sep  1 13:39:14 2009
@@ -10,7 +10,7 @@
 requires 'namespace::autoclean' => '0.05';
 requires 'Moose' => '0.89';
 requires 'MooseX::AttributeHelpers';
-requires 'MooseX::Method::Signatures' => '0.23';
+requires 'MooseX::Method::Signatures' => '0.24';
 requires 'MooseX::Role::Parameterized' => '0.12';
 requires 'MooseX::Types::Moose';
 requires 'List::MoreUtils';

Modified: branches/upstream/libmoosex-declare-perl/current/lib/MooseX/Declare.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-declare-perl/current/lib/MooseX/Declare.pm?rev=43380&op=diff
==============================================================================
--- branches/upstream/libmoosex-declare-perl/current/lib/MooseX/Declare.pm (original)
+++ branches/upstream/libmoosex-declare-perl/current/lib/MooseX/Declare.pm Tue Sep  1 13:39:14 2009
@@ -9,7 +9,7 @@
 
 use namespace::clean;
 
-our $VERSION = '0.28';
+our $VERSION = '0.29';
 
 sub import {
     my ($class, %args) = @_;

Modified: branches/upstream/libmoosex-declare-perl/current/t/modifier_order.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-declare-perl/current/t/modifier_order.t?rev=43380&op=diff
==============================================================================
--- branches/upstream/libmoosex-declare-perl/current/t/modifier_order.t (original)
+++ branches/upstream/libmoosex-declare-perl/current/t/modifier_order.t Tue Sep  1 13:39:14 2009
@@ -1,5 +1,5 @@
 use MooseX::Declare;
-use Test::More('tests', 1);
+use Test::More;
 
 namespace Foo;
 
@@ -9,24 +9,34 @@
 
 role ::C {
     with '::Z';
-    around foo (Int $x) { $orig->($self, int($x / 3)) }
+    around foo (Int $x) { $self->$orig(int($x / 3)) }
 }
 
 role ::B {
     with '::C';
-    around foo (Int $x) { $orig->($self, $x + 2) }
+    around foo (Int $x) { $self->$orig($x + 2) }
 }
 
 role ::A {
     with '::B';
-    around foo (Int $x) { $orig->($self, $x * 2) }
+    around foo (Int $x) { $self->$orig($x * 2) }
 }
 
 class TEST {
     with '::A';
-    around foo (Int $x) { $orig->($self, $x + 2) }
+    around foo (Int $x) { $self->$orig($x + 2) }
 }
 
 is(TEST->new()->foo(12), 10, 'Method modifier and roles ordering');
 
+class AnotherTest {
+    with '::Z';
+    around foo (Int $x) { $self->$orig($x * 2) }
+}
+
+is(AnotherTest->new->foo(21), 42,
+   'modifiers also work when applying directly to an actual method compose from a role');
+
+done_testing;
+
 1;