Tweak change bug description

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

diff --git a/examples/InsideOutClass.pod b/examples/InsideOutClass.pod
index e106113..07da94f 100644 (file)
--- a/examples/InsideOutClass.pod
+++ b/examples/InsideOutClass.pod
@@ -45,7 +45,7 @@ use base 'Class::MOP::Method::Accessor';
 
 ## Method generation helpers
 
-sub generate_accessor_method {
+sub _generate_accessor_method {
     my $attr       = (shift)->associated_attribute;
     my $meta_class = $attr->associated_class;  
     my $attr_name  = $attr->name;
@@ -56,7 +56,7 @@ sub generate_accessor_method {
     };
 }
 
-sub generate_reader_method {
+sub _generate_reader_method {
     my $attr       = (shift)->associated_attribute;
     my $meta_class = $attr->associated_class;  
     my $attr_name  = $attr->name;
@@ -67,7 +67,7 @@ sub generate_reader_method {
     }; 
 }
 
-sub generate_writer_method {
+sub _generate_writer_method {
     my $attr       = (shift)->associated_attribute;
     my $meta_class = $attr->associated_class;  
     my $attr_name  = $attr->name;
@@ -77,7 +77,7 @@ sub generate_writer_method {
     };
 }
 
-sub generate_predicate_method {
+sub _generate_predicate_method {
     my $attr       = (shift)->associated_attribute;
     my $meta_class = $attr->associated_class;  
     my $attr_name  = $attr->name;
@@ -102,7 +102,7 @@ use base 'Class::MOP::Instance';
 
 sub create_instance {
        my ($self, $class) = @_;
-    $self->bless_instance_structure(\(my $instance));
+        bless \(my $instance), $self->_class_name;
 }
 
 sub get_slot_value {
@@ -185,7 +185,7 @@ Yuval Kogman E<lt>nothingmuch@woobling.comE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2006 by Infinity Interactive, Inc.
+Copyright 2006-2008 by Infinity Interactive, Inc.
 
 L<http://www.iinteractive.com>