Catch too-late application of REPR trait.

Fixes RT #125574.
rakudo · Jul 9, 2015 · a51ac08 · a51ac08
1 parent ed8270a
commit a51ac08
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -2064,6 +2064,9 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
                                 symbol => $longname.name(),
                             );
                         }
+                        if nqp::defined($*REPR) {
+                            $*W.throw($/, ['X', 'TooLateForREPR'], type => $*PACKAGE);
+                        }
                     }
 
                     # If it's not a role, or it is a role but one with no name,

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -2010,4 +2010,11 @@ my class X::StubCode is Exception {
     has $.message = 'Stub code executed';
 }
 
+my class X::TooLateForREPR is X::Comp  {
+    has $.type;
+    method message() {
+        "Cannot change REPR of $!type.^name() now (must be set at initial declaration)";
+    }
+}
+
 # vim: ft=perl6 expandtab sw=4