r43382 - in /trunk/libmoosex-declare-perl: Changes META.yml Makefile.PL debian/changelog lib/MooseX/Declare.pm t/modifier_order.t

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

Author: jawnsy-guest
Date: Tue Sep  1 13:41:52 2009
New Revision: 43382

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43382
Log:
Upgrading to new upstream release

Modified:
    trunk/libmoosex-declare-perl/Changes
    trunk/libmoosex-declare-perl/META.yml
    trunk/libmoosex-declare-perl/Makefile.PL
    trunk/libmoosex-declare-perl/debian/changelog
    trunk/libmoosex-declare-perl/lib/MooseX/Declare.pm
    trunk/libmoosex-declare-perl/t/modifier_order.t

Modified: trunk/libmoosex-declare-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-declare-perl/Changes?rev=43382&op=diff
==============================================================================
--- trunk/libmoosex-declare-perl/Changes (original)
+++ trunk/libmoosex-declare-perl/Changes Tue Sep  1 13:41:52 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: trunk/libmoosex-declare-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-declare-perl/META.yml?rev=43382&op=diff
==============================================================================
--- trunk/libmoosex-declare-perl/META.yml (original)
+++ trunk/libmoosex-declare-perl/META.yml Tue Sep  1 13:41:52 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: trunk/libmoosex-declare-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-declare-perl/Makefile.PL?rev=43382&op=diff
==============================================================================
--- trunk/libmoosex-declare-perl/Makefile.PL (original)
+++ trunk/libmoosex-declare-perl/Makefile.PL Tue Sep  1 13:41:52 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: trunk/libmoosex-declare-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-declare-perl/debian/changelog?rev=43382&op=diff
==============================================================================
--- trunk/libmoosex-declare-perl/debian/changelog (original)
+++ trunk/libmoosex-declare-perl/debian/changelog Tue Sep  1 13:41:52 2009
@@ -1,10 +1,13 @@
-libmoosex-declare-perl (0.28-1) UNRELEASED; urgency=low
+libmoosex-declare-perl (0.29-1) UNRELEASED; urgency=low
 
   WAITS for libmoosex-method-signatures-perl 0.23
 
   * New upstream release
+    + Add failing test for applying modifiers to a method
+      directly composed from a role
+    + Fix the failing test by depending on MXMS 0.24
 
- -- Jonathan Yu <frequency at cpan.org>  Fri, 28 Aug 2009 08:21:05 -0400
+ -- Jonathan Yu <jawnsy at cpan.org>  Tue, 01 Sep 2009 05:36:10 -0400
 
 libmoosex-declare-perl (0.27-1) unstable; urgency=low
 

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

Modified: trunk/libmoosex-declare-perl/t/modifier_order.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-declare-perl/t/modifier_order.t?rev=43382&op=diff
==============================================================================
--- trunk/libmoosex-declare-perl/t/modifier_order.t (original)
+++ trunk/libmoosex-declare-perl/t/modifier_order.t Tue Sep  1 13:41:52 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;