X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F105_ClassEncapsulatedAttributes_test.t;h=57b9760400988789844d2fe331539350b110ca96;hb=6d5355c3845e060d269b664be7b4284c606691b8;hp=47952e61835251b405fc2f1dd16a8fd552c4ebfe;hpb=2e41896ef928bb97cd490b03cd77f0280d802384;p=gitmo%2FClass-MOP.git diff --git a/t/105_ClassEncapsulatedAttributes_test.t b/t/105_ClassEncapsulatedAttributes_test.t index 47952e6..57b9760 100644 --- a/t/105_ClassEncapsulatedAttributes_test.t +++ b/t/105_ClassEncapsulatedAttributes_test.t @@ -14,7 +14,7 @@ BEGIN { { package Foo; - sub meta { ClassEncapsulatedAttributes->initialize($_[0]) } + use metaclass 'ClassEncapsulatedAttributes'; Foo->meta->add_attribute('foo' => ( accessor => 'foo', @@ -30,7 +30,7 @@ BEGIN { sub new { my $class = shift; - bless $class->meta->construct_instance(@_) => $class; + $class->meta->new_object(@_); } package Bar;