Start tracking applied traits.

doy · Apr 14, 2011 · aaad9b6 · aaad9b6
1 parent 2b64268
commit aaad9b6
Show file tree

Hide file tree

Showing 5 changed files with 31 additions and 2 deletions.
diff --git a/lib/MooseX/amine.pm b/lib/MooseX/amine.pm
@@ -364,6 +364,9 @@ sub _extract_attribute_metainfo {
   $return->{meta}{constraint} = $meta_attr->type_constraint->name
     if ( $meta_attr->has_type_constraint );
 
+  $return->{meta}{traits} = $meta_attr->applied_traits
+    if ( $meta_attr->has_applied_traits );
+
   foreach ( qw/
                 is_weak_ref is_required is_lazy is_lazy_build should_coerce
                 should_auto_deref has_trigger has_handles

diff --git a/t/01-basic-object.t b/t/01-basic-object.t
@@ -22,6 +22,14 @@ my $expected_data_structure = {
       reader => 'bare_ro_attribute',
       from   => 'Test::Basic::Object',
     } ,
+    hash_trait => {
+      accessor => 'hash_trait',
+      from     => 'Test::Basic::Object',
+      meta     => {
+        constraint => 'HashRef' ,
+        traits     => [ 'Moose::Meta::Attribute::Native::Trait::Hash' ] ,
+      },
+    },
   },
   methods => {
     simple_method => {

diff --git a/t/05-basic-object-include-all.t b/t/05-basic-object-include-all.t
@@ -29,6 +29,14 @@ my $expected_data_structure = {
       reader => 'bare_ro_attribute',
       from   => 'Test::Basic::Object',
     } ,
+    hash_trait => {
+      accessor => 'hash_trait',
+      from     => 'Test::Basic::Object',
+      meta     => {
+        constraint => 'HashRef' ,
+        traits     => [ 'Moose::Meta::Attribute::Native::Trait::Hash' ] ,
+      },
+    },
     _private_attribute => {
       reader => '_private_attribute' ,
       from   => 'Test::Basic::Object' ,
@@ -40,8 +48,9 @@ my $expected_data_structure = {
   methods => {
     _private_attribute => { from => 'Test::Basic::Object' } ,
     _private_method    => { from => 'Test::Basic::Object' } ,
-    simple_attribute   => { from => 'Test::Basic::Object' },
-    bare_ro_attribute  => { from => 'Test::Basic::Object' },
+    simple_attribute   => { from => 'Test::Basic::Object' } ,
+    bare_ro_attribute  => { from => 'Test::Basic::Object' } ,
+    hash_trait         => { from => 'Test::Basic::Object' } ,
     simple_method      => { from => 'Test::Basic::Object' } ,
     BUILDALL           => { from => 'Moose::Object' },
     BUILDARGS          => { from => 'Moose::Object' },

diff --git a/t/06-basic-object-by-path.t b/t/06-basic-object-by-path.t
@@ -22,6 +22,14 @@ my $expected_data_structure = {
       reader => 'bare_ro_attribute',
       from     => 'Test::Basic::Object',
     } ,
+    hash_trait => {
+      accessor => 'hash_trait',
+      from     => 'Test::Basic::Object',
+      meta     => {
+        constraint => 'HashRef' ,
+        traits     => [ 'Moose::Meta::Attribute::Native::Trait::Hash' ] ,
+      },
+    },
   },
   methods => {
     simple_method => {

diff --git a/t/lib/Test/Basic/Object.pm b/t/lib/Test/Basic/Object.pm
@@ -2,6 +2,7 @@ package Test::Basic::Object;
 use Moose;
 has 'simple_attribute'   => ( is => 'rw' , isa => 'Str' );
 has 'bare_ro_attribute'  => ( is => 'ro' );
+has 'hash_trait'         => ( is => 'rw' , traits => [ qw/ Hash / ] );
 has '_private_attribute' => ( is => 'ro' , isa => 'Int' );
 sub simple_method   { return 'simple' }
 sub _private_method { return 'private' }