Support the short type-casting syntax from S13.

rakudo · Mar 1, 2012 · 3eded7b · 3eded7b
1 parent 59c1c35
commit 3eded7b
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 6 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1836,7 +1836,20 @@ class Perl6::Actions is HLL::Actions {
                 $past[1] := wrap_return_handler($past[1]);
             }
         }
-        $past.name($<longname> ?? $<longname>.Str !! '<anon>');
+
+        my $name;
+        if $<longname> {
+            $name := $<longname>.Str;
+        }
+        elsif $<sigil> {
+            if $<sigil> eq '@'    { $name := 'postcircumfix:<[ ]>' }
+            elsif $<sigil> eq '%' { $name := 'postcircumfix:<{ }>' }
+            elsif $<sigil> eq '&' { $name := 'postcircumfix:<( )>' }
+            else {
+                $/.CURSOR.panic("Cannot use " ~ $<sigil> ~ " sigil as a method name");
+            }
+        }
+        $past.name($name ?? $name !! '<anon>');
         $past.nsentry('');
 
         # Do the various tasks to trun the block into a method code object.
@@ -1862,8 +1875,8 @@ class Perl6::Actions is HLL::Actions {
         }
 
         # Install method.
-        if $<longname> {
-            install_method($/, $<longname>.Str, $*SCOPE, $code, $outer,
+        if $name {
+            install_method($/, $name, $*SCOPE, $code, $outer,
                 :private($<specials> && ~$<specials> eq '!'));
         }
         elsif $*MULTINESS {

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1527,9 +1527,16 @@ grammar Perl6::Grammar is HLL::Grammar {
         [
             <.newpad>
             [
-                | $<specials>=[<[ ! ^ ]>?]<longname> [ '(' <multisig> ')' ]? <trait>*
-                | [ '(' <multisig> ')' ]? <trait>*
-                | <?>
+            | $<specials>=[<[ ! ^ ]>?]<longname> [ '(' <multisig> ')' ]? <trait>*
+            | '(' <multisig> ')' <trait>*
+            | <sigil>'.':!s
+                [
+                | '(' ~ ')' <multisig>
+                | '[' ~ ']' <multisig>
+                | '{' ~ '}' <multisig>
+                ]:s
+                <trait>*
+            | <?>
             ]
             { $*IN_DECL := ''; }
             [