Skip to content
Permalink
Browse files

Remove %DEPRECATIONS from SETTING::

  • Loading branch information...
lizmat committed Apr 6, 2019
1 parent d5044de commit bf57f7626c82f3e3ea33dc03e332b96f319cebbb
Showing with 5 additions and 2 deletions.
  1. +5 −2 src/core/Deprecations.pm6
@@ -1,5 +1,3 @@
my %DEPRECATIONS; # where we keep our deprecation info

class Deprecation {
has str $.file; # file of the code that is deprecated
has str $.type; # type of code (sub/method etc.) that is deprecated
@@ -10,6 +8,9 @@ class Deprecation {
has Version $.from; # release version from which deprecated
has Version $.removed; # release version when will be removed

my %DEPRECATIONS; # where we keep our deprecation info
method DEPRECATIONS() is raw { %DEPRECATIONS }

multi method WHICH (Deprecation:D: --> ValueObjAt:D) {
my $which := nqp::list_s("Deprecation");
nqp::push_s($which,$!file || "");
@@ -61,6 +62,8 @@ class Deprecation {

class Rakudo::Deprecations {

my %DEPRECATIONS := Deprecation.DEPRECATIONS;

my $ver;
method DEPRECATED($alternative,$from?,$removed?,:$up = 1,:$what,:$file,:$line,Bool :$lang-vers) {
$ver //= $*PERL.compiler.version;

0 comments on commit bf57f76

Please sign in to comment.
You can’t perform that action at this time.