X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2FInstanceCountingClass.pod;h=b28fef88a403e68ce51e6f4f8da68e359dc29c86;hb=d83eddd0c97e4828272ea7a174731437ac36ebf1;hp=d0274e7f4b9a4a3b4d5d01b845222294db9887c5;hpb=1a09d9cce4930577a39060a03029a32cd51d41c7;p=gitmo%2FClass-MOP.git

diff --git a/examples/InstanceCountingClass.pod b/examples/InstanceCountingClass.pod
index d0274e7..b28fef8 100644
--- a/examples/InstanceCountingClass.pod
+++ b/examples/InstanceCountingClass.pod
@@ -9,14 +9,14 @@ our $VERSION = '0.03';
 
 use base 'Class::MOP::Class';
 
-InstanceCountingClass->meta->add_attribute('$:count' => (
+InstanceCountingClass->meta->add_attribute('count' => (
     reader  => 'get_count',
     default => 0
 ));
 
-InstanceCountingClass->meta->add_before_method_modifier('construct_instance' => sub {
+InstanceCountingClass->meta->add_before_method_modifier('_construct_instance' => sub {
     my ($class) = @_;
-    $class->{'$:count'}++;	
+    $class->{'count'}++;	
 });
 
 1;
@@ -63,7 +63,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>