6 Moose::Cookbook::Recipe3
18 predicate => 'has_parent',
25 predicate => 'has_left',
27 default => sub { BinaryTree->new(parent => $_[0]) },
33 predicate => 'has_right',
35 default => sub { BinaryTree->new(parent => $_[0]) },
38 before 'right', 'left' => sub {
39 my ($self, $tree) = @_;
40 $tree->parent($self) if defined $tree;
47 Stevan Little E<lt>stevan@iinteractive.comE<gt>
49 =head1 COPYRIGHT AND LICENSE
51 Copyright 2006 by Infinity Interactive, Inc.
53 L<http://www.iinteractive.com>
55 This library is free software; you can redistribute it and/or modify
56 it under the same terms as Perl itself.