6 use Test::More tests => 10;
10 use_ok('examples::Perl6Attribute');
16 use Class::MOP 'meta';
18 Foo->meta->add_attribute(Perl6Attribute->new('$.foo'));
19 Foo->meta->add_attribute(Perl6Attribute->new('@.bar'));
20 Foo->meta->add_attribute(Perl6Attribute->new('%.baz'));
24 bless $class->meta->construct_instance() => $class;
35 is($foo->foo, undef, '... Foo.foo == undef');
38 is($foo->foo, 42, '... Foo.foo == 42');
40 is_deeply($foo->bar, [], '... Foo.bar == []');
41 is_deeply($foo->baz, {}, '... Foo.baz == {}');