Throw NYI (for now) for $=data and cousins

rakudo · Feb 7, 2015 · 1b24050 · 1b24050
1 parent a4ceed6
commit 1b24050
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1777,6 +1777,9 @@ class Perl6::Actions is HLL::Actions does STDActions {
                 $past.push($wval);
             }
         }
+        elsif $twigil eq '=' && $desigilname ne 'pod' {
+            $*W.throw($/, 'X::Comp::NYI', feature => 'Pod variables other than $=pod');
+        }
         elsif $past.name() eq '@_' {
             if $*W.nearest_signatured_block_declares('@_') {
                 $past.scope('lexical');