6 use Test::More tests => 10;
11 require_ok(File::Spec->catdir('examples', 'Perl6Attribute.pod'));
17 use Class::MOP 'meta';
19 Foo->meta->add_attribute(Perl6Attribute->new('$.foo'));
20 Foo->meta->add_attribute(Perl6Attribute->new('@.bar'));
21 Foo->meta->add_attribute(Perl6Attribute->new('%.baz'));
25 bless $class->meta->construct_instance(@_) => $class;
36 is($foo->foo, undef, '... Foo.foo == undef');
39 is($foo->foo, 42, '... Foo.foo == 42');
41 is_deeply($foo->bar, [], '... Foo.bar == []');
42 is_deeply($foo->baz, {}, '... Foo.baz == {}');