make CMOP::Class->construct_instance private
[gitmo/Class-MOP.git] / t / 106_LazyClass_test.t
index 5d6d1bf..94c50fb 100644 (file)
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
@@ -35,7 +33,7 @@ BEGIN {use Class::MOP;
 
     sub new {
         my $class = shift;
-        bless $class->meta->construct_instance(@_) => $class;
+        bless $class->meta->new_object(@_) => $class;
     }
 }