Set an attribute type to Any if there's no supplied type constraint.

rakudo · Jun 12, 2010 · 5c78c71 · 5c78c71
1 parent 0d0672b
commit 5c78c71
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Perl6/Compiler/Package.pm b/src/Perl6/Compiler/Package.pm
@@ -181,6 +181,11 @@ method finish($block) {
             $_<type>.named('type');
             $attr.push($_<type>);
         }
+        else {
+            $attr.push(PAST::Var.new(
+                :name('Any'), :namespace([]), :scope('package'), :named('type')
+            ));
+        }
         $decl.push(PAST::Op.new(
             :pasttype('callmethod'),
             :name('add_attribute'),