Add docs to Class::MOP::Class::Immutable::Trait

[gitmo/Class-MOP.git] / examples / LazyClass.pod

diff --git a/examples/LazyClass.pod b/examples/LazyClass.pod
index 560c074..0c87b3a 100644 (file)
--- a/examples/LazyClass.pod
+++ b/examples/LazyClass.pod
@@ -38,7 +38,7 @@ our $VERSION = '0.01';
 
 use base 'Class::MOP::Method::Accessor';
 
-sub generate_accessor_method {
+sub _generate_accessor_method {
     my $attr = (shift)->associated_attribute;
 
        my $attr_name = $attr->name;
@@ -59,7 +59,7 @@ sub generate_accessor_method {
     };
 }
 
-sub generate_reader_method {
+sub _generate_reader_method {
     my $attr = (shift)->associated_attribute;
 
        my $attr_name = $attr->name;
@@ -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() }    
   ));