r36580 - in /branches/upstream/libmoosex-traits-perl/current: Changes MANIFEST META.yml lib/MooseX/Traits.pm t/subclass.t

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

Author: jawnsy-guest
Date: Thu May 28 16:22:38 2009
New Revision: 36580

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

Added:
    branches/upstream/libmoosex-traits-perl/current/t/subclass.t
Modified:
    branches/upstream/libmoosex-traits-perl/current/Changes
    branches/upstream/libmoosex-traits-perl/current/MANIFEST
    branches/upstream/libmoosex-traits-perl/current/META.yml
    branches/upstream/libmoosex-traits-perl/current/lib/MooseX/Traits.pm

Modified: branches/upstream/libmoosex-traits-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-traits-perl/current/Changes?rev=36580&op=diff
==============================================================================
--- branches/upstream/libmoosex-traits-perl/current/Changes (original)
+++ branches/upstream/libmoosex-traits-perl/current/Changes Thu May 28 16:22:38 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: branches/upstream/libmoosex-traits-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-traits-perl/current/MANIFEST?rev=36580&op=diff
==============================================================================
--- branches/upstream/libmoosex-traits-perl/current/MANIFEST (original)
+++ branches/upstream/libmoosex-traits-perl/current/MANIFEST Thu May 28 16:22:38 2009
@@ -18,3 +18,4 @@
 t/author/pod-coverage.t
 t/author/pod.t
 t/basic.t
+t/subclass.t

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

Modified: branches/upstream/libmoosex-traits-perl/current/lib/MooseX/Traits.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-traits-perl/current/lib/MooseX/Traits.pm?rev=36580&op=diff
==============================================================================
--- branches/upstream/libmoosex-traits-perl/current/lib/MooseX/Traits.pm (original)
+++ branches/upstream/libmoosex-traits-perl/current/lib/MooseX/Traits.pm Thu May 28 16:22:38 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: branches/upstream/libmoosex-traits-perl/current/t/subclass.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-traits-perl/current/t/subclass.t?rev=36580&op=file
==============================================================================
--- branches/upstream/libmoosex-traits-perl/current/t/subclass.t (added)
+++ branches/upstream/libmoosex-traits-perl/current/t/subclass.t Thu May 28 16:22:38 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';