Make "is DEPRECATED" introspectable on Routines

rakudo · Dec 2, 2020 · 0d1c8a8 · 0d1c8a8
1 parent 80f9283
commit 0d1c8a8
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core.c/traits.pm6 b/src/core.c/traits.pm6
@@ -129,7 +129,7 @@ multi sub trait_mod:<is>(Attribute:D $attr, :$DEPRECATED!) {
     my $new := nqp::istype($DEPRECATED,Bool)
       ?? "something else"
       !! $DEPRECATED;
-    role is-DEPRECATED { has $.DEPRECATED }
+    my role is-DEPRECATED { has $.DEPRECATED }
     $attr does is-DEPRECATED($new);
 }
 multi sub trait_mod:<is>(Attribute:D $attr, :$leading_docs!) {
@@ -175,6 +175,8 @@ multi sub trait_mod:<is>(Routine:D $r, :$DEPRECATED!) {
     my $new := nqp::istype($DEPRECATED,Bool)
       ?? "something else"
       !! $DEPRECATED;
+    my role is-DEPRECATED { has $.DEPRECATED }
+    $r does is-DEPRECATED($new);
     $r.add_phaser( 'ENTER', -> { Rakudo::Deprecations.DEPRECATED($new) } );
 }
 multi sub trait_mod:<is>(Routine:D $r, Mu :$inlinable!) {