Tentatively implement "samewith" for calling same method with differe…

…nt params This is essentially syntactic sugar for &?ROUTINE.dispatcher()( self, @params );
rakudo · Aug 7, 2013 · 1d15f4d · 1d15f4d
1 parent 9117969
commit 1d15f4d
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -118,6 +118,15 @@ my &lastcall := -> {
     True
 };
 
+my &samewith := -> *@pos, *%named {
+    my $caller = callframe(1);
+    my $self   = $caller.my<self>
+      || die "Could not find 'self'";
+    my $dispatcher = $caller.my<&?ROUTINE>.dispatcher
+      || die "Could not find dispatcher";
+    $dispatcher( $self, |@pos, |%named );
+}
+
 proto sub die(|) is hidden_from_backtrace {*};
 multi sub die(Exception $e) is hidden_from_backtrace { $e.throw }
 multi sub die($payload) is hidden_from_backtrace {