Quick 'n' dirty cut of private methods.

perl6 · Jan 22, 2011 · daf5b1e · daf5b1e
1 parent 25921fc
commit daf5b1e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -709,7 +709,7 @@ method method_def($/) {
     # Install it where it should go (methods table / namespace).
     if $<deflongname> {
         # Set name.
-        my $name := ~$<deflongname>[0].ast;
+        my $name := ~$<private> ~ ~$<deflongname>[0].ast;
         $past.name($name);
 
         # If it's a proto, we'll mark it as such by giving it an empty candidate

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -345,6 +345,7 @@ rule routine_def {
 
 rule method_def {
     :my $*INVOCANT_OK := 1;
+    $<private>=['!'?]
     <deflongname>?
     <.newpad>
     [ '(' <signature> ')'