forbid scopes on individual multi candidates

rakudo · Mar 15, 2012 · b4caaa4 · b4caaa4
1 parent 34b7b10
commit b4caaa4
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1666,6 +1666,12 @@ class Perl6::Actions is HLL::Actions {
                     $proto := $outer.symbol($name)<value>;
                 }
                 else {
+                    unless $*SCOPE eq '' || $*SCOPE eq 'my' {
+                        $*W.throw($/, 'X::Declaration::Scope::Multi',
+                            scope       => $*SCOPE,
+                            declaration => 'multi',
+                        );
+                    }
                     # None; search outer scopes.
                     my $new_proto;
                     try {

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -455,6 +455,12 @@ my class X::Declaration::Scope does X::Comp {
     method message() { "Cannot use '$.scope' with $.declaration declaration" }
 }
 
+my class X::Declaration::Scope::Multi is X::Declaration::Scope {
+    method message() {
+        "Cannot use '$.scope' with individual multi candidates. Please declare an {$.scope}-scoped proto instead";
+    }
+}
+
 my class X::Anon::Multi does X::Comp {
     has $.multiness;
     has $.routine-type = 'routine';