Add traits to method definitions.

perl6 · Sep 9, 2010 · f3dabb7 · f3dabb7
1 parent 7188f73
commit f3dabb7
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -482,7 +482,11 @@ method method_def($/) {
         $past.name($name);
     }
     if $*MULTINESS eq 'multi' { $past.multi().unshift('_'); }
+    $past<block_past> := $past;
     make $past;
+    if $<trait> {
+        for $<trait> { $_.ast()($/); }
+    }
 }
 
 

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -307,6 +307,7 @@ rule method_def {
     <.newpad>
     [ '(' <signature> ')'
         || <.panic: 'Routine declaration requires a signature'> ]
+    <trait>*
     <blockoid>
 }