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',