X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F106_LazyClass_test.t;h=f457f55f8d264ad1cbeec278c777fc682cecd6df;hb=81c8a65bf02bb1b0e240d8f5b626b0ceabf9a37c;hp=ff3e3547a3033de95cabbf4420fd46113dc291ec;hpb=49c93440bd912ed231b8ab8e93a8e9ac7328fdc7;p=gitmo%2FClass-MOP.git diff --git a/t/106_LazyClass_test.t b/t/106_LazyClass_test.t index ff3e354..f457f55 100644 --- a/t/106_LazyClass_test.t +++ b/t/106_LazyClass_test.t @@ -14,13 +14,14 @@ BEGIN { { package BinaryTree; - use metaclass 'Class::MOP::Class' => ( - ':attribute_metaclass' => 'LazyClass::Attribute', + use metaclass ( + 'attribute_metaclass' => 'LazyClass::Attribute', + 'instance_metaclass' => 'LazyClass::Instance', ); BinaryTree->meta->add_attribute('$:node' => ( accessor => 'node', - init_arg => ':node' + init_arg => 'node' )); BinaryTree->meta->add_attribute('$:left' => ( @@ -39,7 +40,7 @@ BEGIN { } } -my $root = BinaryTree->new(':node' => 0); +my $root = BinaryTree->new('node' => 0); isa_ok($root, 'BinaryTree'); ok(exists($root->{'$:node'}), '... node attribute has been initialized yet');