make CMOP::Class->construct_instance private

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

diff --git a/examples/InstanceCountingClass.pod b/examples/InstanceCountingClass.pod
index 3cf3eb3..b28fef8 100644 (file)
--- a/examples/InstanceCountingClass.pod
+++ b/examples/InstanceCountingClass.pod
@@ -14,7 +14,7 @@ InstanceCountingClass->meta->add_attribute('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'}++;       
 });