make CMOP::Class->construct_instance private

[gitmo/Class-MOP.git] / t / 106_LazyClass_test.t

diff --git a/t/106_LazyClass_test.t b/t/106_LazyClass_test.t
index c17b490..94c50fb 100644 (file)
--- a/t/106_LazyClass_test.t
+++ b/t/106_LazyClass_test.t
@@ -1,13 +1,10 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 26;
+use Test::More tests => 25;
 use File::Spec;
 
-BEGIN { 
-    use_ok('Class::MOP');    
+BEGIN {use Class::MOP;    
     require_ok(File::Spec->catfile('examples', 'LazyClass.pod'));
 }
 
@@ -36,7 +33,7 @@ BEGIN {
 
     sub new {
         my $class = shift;
-        bless $class->meta->construct_instance(@_) => $class;
+        bless $class->meta->new_object(@_) => $class;
     }
 }