X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FBinaryTree.pm;h=539800a68b593a708b67b019c632227876de13b4;hb=1aeb4c53a4098bfefdb2c98f81f9b7240d7abbd0;hp=23f5863d99d6d679eb3f76b265276da3a772dd79;hpb=5caf45ce90def730e4c3743050c7354a78ed9800;p=gitmo%2FClass-MOP.git

diff --git a/t/lib/BinaryTree.pm b/t/lib/BinaryTree.pm
index 23f5863..539800a 100644
--- a/t/lib/BinaryTree.pm
+++ b/t/lib/BinaryTree.pm
@@ -9,7 +9,7 @@ use metaclass;
 
 our $VERSION = '0.02';
 
-BinaryTree->meta->add_attribute('$:uid' => (
+BinaryTree->meta->add_attribute('uid' => (
     reader  => 'getUID',
     writer  => 'setUID',
     default => sub {
@@ -18,21 +18,21 @@ BinaryTree->meta->add_attribute('$:uid' => (
     }
 ));
 
-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',
@@ -41,13 +41,13 @@ BinaryTree->meta->add_attribute('$:left' => (
             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',
@@ -56,7 +56,7 @@ BinaryTree->meta->add_attribute('$:right' => (
             my ($self, $tree) = @_;
             confess "undef right" unless defined $tree;
                 $tree->setParent($self) if defined $tree;
-            $self->{'$:right'} = $tree;
+            $self->{'right'} = $tree;
             $self;
         }
     }