hard code traits as valid for attribute inflation
Graham Knop [Tue, 14 May 2013 21:34:13 +0000 (17:34 -0400)]
lib/Moo/HandleMoose.pm

index 635df60..1918522 100644 (file)
@@ -114,6 +114,8 @@ sub inject_real_metaclass_for {
           }  @{$spec{traits}||[]}
         )
       );
+      # have to hard code this because Moose's role meta-model is lacking
+      $spec_map{traits} ||= 'traits';
 
       $spec{is} = 'ro' if $spec{is} eq 'lazy' or $spec{is} eq 'rwp';
       my $coerce = $spec{coerce};