Ensure that all new children are type Tree::Simple

Takadonet · Dec 20, 2010 · ca7fc39 · ca7fc39
1 parent fa1d7d7
commit ca7fc39
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Tree/Simple.pm b/lib/Tree/Simple.pm
@@ -166,8 +166,8 @@ method insertChildAt(Int $index where { $index >= 0 },*@trees where { @trees.ele
 
 
      for @trees -> $tree is rw {
-#         (blessed($tree) && $tree.isa("Tree::Simple")) 
-#             || die "Insufficient Arguments : Child must be a Tree::Simple object";
+         $tree ~~ Tree::Simple 
+             || die "Insufficient Arguments : Child must be a Tree::Simple object";
          $tree!setParent(self);
          self.setHeight($tree);   
          self.setWidth($tree);