r36582 - in /trunk/libmoosex-traits-perl: Changes MANIFEST META.yml debian/changelog lib/MooseX/Traits.pm t/subclass.t

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

Author: jawnsy-guest
Date: Thu May 28 16:25:44 2009
New Revision: 36582

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=36582
Log:
Minor changes applied from upstream

Added:
    trunk/libmoosex-traits-perl/t/subclass.t
Modified:
    trunk/libmoosex-traits-perl/Changes
    trunk/libmoosex-traits-perl/MANIFEST
    trunk/libmoosex-traits-perl/META.yml
    trunk/libmoosex-traits-perl/debian/changelog
    trunk/libmoosex-traits-perl/lib/MooseX/Traits.pm

Modified: trunk/libmoosex-traits-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-traits-perl/Changes?rev=36582&op=diff
==============================================================================
--- trunk/libmoosex-traits-perl/Changes (original)
+++ trunk/libmoosex-traits-perl/Changes Thu May 28 16:25:44 2009
@@ -1,3 +1,6 @@
+0.05    Thu May 28 08:37:21 MST 2009
+        - support subclasses of classes that use MX::Traits
+
 0.04    Tue May 26 23:00:29 MST 2009
         - add apply_traits method
         - use meta->constructor_name instead of 'new'

Modified: trunk/libmoosex-traits-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-traits-perl/MANIFEST?rev=36582&op=diff
==============================================================================
--- trunk/libmoosex-traits-perl/MANIFEST (original)
+++ trunk/libmoosex-traits-perl/MANIFEST Thu May 28 16:25:44 2009
@@ -18,3 +18,4 @@
 t/author/pod-coverage.t
 t/author/pod.t
 t/basic.t
+t/subclass.t

Modified: trunk/libmoosex-traits-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-traits-perl/META.yml?rev=36582&op=diff
==============================================================================
--- trunk/libmoosex-traits-perl/META.yml (original)
+++ trunk/libmoosex-traits-perl/META.yml Thu May 28 16:25:44 2009
@@ -22,4 +22,4 @@
   Moose::Role: 0
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.04
+version: 0.05

Modified: trunk/libmoosex-traits-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-traits-perl/debian/changelog?rev=36582&op=diff
==============================================================================
--- trunk/libmoosex-traits-perl/debian/changelog (original)
+++ trunk/libmoosex-traits-perl/debian/changelog Thu May 28 16:25:44 2009
@@ -1,3 +1,11 @@
+libmoosex-traits-perl (0.05-1) unstable; urgency=low
+
+  * New upstream release
+    -> Feature change: support subclasses of classes that use MX::Traits
+    -> New test added
+
+ -- Jonathan Yu <frequency at cpan.org>  Thu, 28 May 2009 12:23:15 -0400
+
 libmoosex-traits-perl (0.04-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libmoosex-traits-perl/lib/MooseX/Traits.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-traits-perl/lib/MooseX/Traits.pm?rev=36582&op=diff
==============================================================================
--- trunk/libmoosex-traits-perl/lib/MooseX/Traits.pm (original)
+++ trunk/libmoosex-traits-perl/lib/MooseX/Traits.pm Thu May 28 16:25:44 2009
@@ -1,7 +1,7 @@
 package MooseX::Traits;
 use Moose::Role;
 
-our $VERSION   = '0.04';
+our $VERSION   = '0.05';
 our $AUTHORITY = 'id:JROCKWAY';
 
 has '_trait_namespace' => (
@@ -15,7 +15,7 @@
 
 my $transform_trait = sub {
     my ($class, $name) = @_;
-    my $namespace = $class->meta->get_attribute('_trait_namespace');
+    my $namespace = $class->meta->find_attribute_by_name('_trait_namespace');
     my $base;
     if($namespace->has_default){
         $base = $namespace->default;

Added: trunk/libmoosex-traits-perl/t/subclass.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-traits-perl/t/subclass.t?rev=36582&op=file
==============================================================================
--- trunk/libmoosex-traits-perl/t/subclass.t (added)
+++ trunk/libmoosex-traits-perl/t/subclass.t Thu May 28 16:25:44 2009
@@ -1,0 +1,26 @@
+use strict;
+use warnings;
+use Test::More tests => 3;
+use Test::Exception;
+
+{ package Foo;
+  use Moose;
+  with 'MooseX::Traits';
+
+  package Bar;
+  use Moose;
+  extends 'Foo';
+
+  package Trait;
+  use Moose::Role;
+
+  sub foo { return 42 };
+}
+
+my $instance;
+lives_ok {
+    $instance = Bar->new_with_traits( traits => ['Trait'] );
+} 'creating instance works ok';
+
+ok $instance->does('Trait'), 'instance does trait';
+is $instance->foo, 42, 'trait works';