10 require_ok(File::Spec->catfile('examples', 'Perl6Attribute.pod'));
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 $class->meta->new_object(@_);
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 == {}');