Support for class Dog { does Smell }.

rakudo · Dec 5, 2009 · 51c596c · 51c596c
1 parent 1f1e259
commit 51c596c
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -515,6 +515,16 @@ method package_declarator:sym<class>($/)   { make $<package_def>.ast; }
 method package_declarator:sym<grammar>($/) { make $<package_def>.ast; }
 method package_declarator:sym<role>($/)    { make $<package_def>.ast; }
 
+method package_declarator:sym<does>($/) {
+    our @PACKAGE;
+    @PACKAGE[0].traits.push(PAST::Op.new(
+        :pasttype('call'),
+        :name('&trait_mod:<does>'),
+        $<typename>.ast
+    ));
+    make PAST::Stmts.new();
+}
+
 method package_def($/, $key?) {
     our @PACKAGE;
 

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -466,6 +466,11 @@ token package_declarator:sym<role> {
     <sym> <package_def>
 }
 
+token package_declarator:sym<does> {
+    <sym> <.ws>
+    <typename>
+}
+
 rule package_def { 
     :my $*IN_DECL := 'package';
     <def_module_name>?