more stuff
[gitmo/Class-MOP.git] / examples / InstanceCountingClass.pod
index 93ba4d5..614303e 100644 (file)
@@ -41,7 +41,7 @@ InstanceCountingClass - An example metaclass which counts instances
   sub meta { InstanceCountingClass->initialize($_[0]) }
   sub new  {
       my $class = shift;
-      bless $class->meta->construct_instance() => $class;
+      bless $class->meta->construct_instance(@_) => $class;
   }
 
   # ... meanwhile, somewhere in the code