X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2FLazyClass.pod;h=262cd73d939df0901e41af647866f1d045e2af98;hb=1aeb4c53a4098bfefdb2c98f81f9b7240d7abbd0;hp=560c074c41c0977b14ec043658496fb69fb4a6f0;hpb=5caf45ce90def730e4c3743050c7354a78ed9800;p=gitmo%2FClass-MOP.git diff --git a/examples/LazyClass.pod b/examples/LazyClass.pod index 560c074..262cd73 100644 --- a/examples/LazyClass.pod +++ b/examples/LazyClass.pod @@ -108,17 +108,17 @@ LazyClass - An example metaclass with lazy initialization ':instance_metaclass' => 'LazyClass::Instance', ); - BinaryTree->meta->add_attribute('$:node' => ( + BinaryTree->meta->add_attribute('node' => ( accessor => 'node', init_arg => ':node' )); - BinaryTree->meta->add_attribute('$:left' => ( + BinaryTree->meta->add_attribute('left' => ( reader => 'left', default => sub { BinaryTree->new() } )); - BinaryTree->meta->add_attribute('$:right' => ( + BinaryTree->meta->add_attribute('right' => ( reader => 'right', default => sub { BinaryTree->new() } ));