RakuAST: support my Foo sub ... syntax for return type declaration

rakudo · May 1, 2024 · 622f58a · 622f58a
1 parent fcbd530
commit 622f58a
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Raku/Actions.nqp b/src/Raku/Actions.nqp
@@ -2205,6 +2205,7 @@ class Raku::Actions is HLL::Actions does Raku::CommonActions {
 
     method routine-def($/) {
         my $routine := $*BLOCK;
+        my $return-type := $*OFTYPE.ast if $*OFTYPE;
         if $<signature> {
             $routine.replace-signature($<signature>.ast);
         }
@@ -2908,6 +2909,11 @@ class Raku::Actions is HLL::Actions does Raku::CommonActions {
         else {
             $returns := Nodify('Node');
         }
+        if $*OFTYPE {
+            $/.typed-sorry('X::Redeclaration', :what('return type for'))
+                if $returns;
+            $returns := $*OFTYPE.ast;
+        }
         self.attach: $/, Nodify('Signature').new(:@parameters, :$returns);
     }