use strict;
use warnings;
-use Test::More no_plan => 29;
+use Test::More tests => 26;
use File::Spec;
BEGIN {
{
package BinaryTree;
- sub meta {
- LazyClass->initialize($_[0] => (
- ':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' => (
}
}
-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');