Have to use bless here.

partcl · Aug 28, 2012 · 5997f93 · 5997f93
1 parent affed06
commit 5997f93
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/TclLexPad.pm b/src/TclLexPad.pm
@@ -24,10 +24,9 @@ class TclLexPad {
     }
 
     method newpad($outer?) {
-        self := self.new;
-        $!outer := $outer // self;
-        $!depth := $outer ?? $outer.depth + 1 !! 0;
-        self;
+        my $outerP := $outer // self;
+        my $depthP := $outer ?? $outer.depth + 1 !! 0;
+        self.bless(self.CREATE(), :outer($outerP), depth($depthP));
     }
 
     method depth() { $!depth }