account for latest deprecations in CMOP

[gitmo/Moose.git] / t / 200_examples / 002_example_Moose_POOP.t

diff --git a/t/200_examples/002_example_Moose_POOP.t b/t/200_examples/002_example_Moose_POOP.t
index 143a46e..79c864c 100644 (file)
--- a/t/200_examples/002_example_Moose_POOP.t
+++ b/t/200_examples/002_example_Moose_POOP.t
@@ -137,7 +137,7 @@ BEGIN {
     
     extends 'Moose::Meta::Class';    
     
-    override 'construct_instance' => sub {
+    override '_construct_instance' => sub {
         my $class = shift;
         my $params = @_ == 1 ? $_[0] : {@_};
         return $class->get_meta_instance->find_instance($params->{oid})