Naively implement "is cached" on Routines

rakudo · Apr 13, 2014 · 442cdf8 · 442cdf8
1 parent c855a0f
commit 442cdf8
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 10 deletions.
diff --git a/src/core/Routine.pm b/src/core/Routine.pm
@@ -129,4 +129,14 @@ my class Routine { # declared in BOOTSTRAP
     method package() { $!package }
 }
 
+multi sub trait_mod:<is>(Routine $r, :$cached!) {
+    my %cache;
+    $r.wrap(-> |c {
+        my $WHICH := c.WHICH;
+        %cache{$WHICH}:exists
+          ?? %cache{$WHICH}
+          !! (%cache{$WHICH} = callsame);
+    });
+}
+
 # vim: ft=perl6 expandtab sw=4
diff --git a/src/core/core_epilogue.pm b/src/core/core_epilogue.pm
@@ -14,16 +14,6 @@ BEGIN {
     Perl6::Metamodel::GrammarHOW.HOW.compose(Perl6::Metamodel::GrammarHOW);
 }
 
-multi sub trait_mod:<is>(Routine $r, :$cached!) {
-    my %cache;
-    $r.wrap(-> |c {
-        my $WHICH := c.WHICH;
-        %cache{$WHICH}:exists
-          ?? %cache{$WHICH}
-          !! (%cache{$WHICH} = callsame);
-    });
-}
-
 {YOU_ARE_HERE}
 
 # vim: ft=perl6 expandtab sw=4