our $VERSION = '0.02';
-BinaryTree->meta->add_attribute('$:uid' => (
+BinaryTree->meta->add_attribute('uid' => (
reader => 'getUID',
writer => 'setUID',
default => sub {
}
));
-BinaryTree->meta->add_attribute('$:node' => (
+BinaryTree->meta->add_attribute('node' => (
reader => 'getNodeValue',
writer => 'setNodeValue',
clearer => 'clearNodeValue',
init_arg => ':node'
));
-BinaryTree->meta->add_attribute('$:parent' => (
+BinaryTree->meta->add_attribute('parent' => (
predicate => 'hasParent',
reader => 'getParent',
writer => 'setParent',
clearer => 'clearParent',
));
-BinaryTree->meta->add_attribute('$:left' => (
+BinaryTree->meta->add_attribute('left' => (
predicate => 'hasLeft',
clearer => 'clearLeft',
reader => 'getLeft',
my ($self, $tree) = @_;
confess "undef left" unless defined $tree;
$tree->setParent($self) if defined $tree;
- $self->{'$:left'} = $tree;
+ $self->{'left'} = $tree;
$self;
}
},
));
-BinaryTree->meta->add_attribute('$:right' => (
+BinaryTree->meta->add_attribute('right' => (
predicate => 'hasRight',
clearer => 'clearRight',
reader => 'getRight',
my ($self, $tree) = @_;
confess "undef right" unless defined $tree;
$tree->setParent($self) if defined $tree;
- $self->{'$:right'} = $tree;
+ $self->{'right'} = $tree;
$self;
}
}