4 use Test::More tests => 9;
8 require_ok(File::Spec->catfile('examples', 'Perl6Attribute.pod'));
16 Foo->meta->add_attribute(Perl6Attribute->new('$.foo'));
17 Foo->meta->add_attribute(Perl6Attribute->new('@.bar'));
18 Foo->meta->add_attribute(Perl6Attribute->new('%.baz'));
22 $class->meta->new_object(@_);
33 is($foo->foo, undef, '... Foo.foo == undef');
36 is($foo->foo, 42, '... Foo.foo == 42');
38 is_deeply($foo->bar, [], '... Foo.bar == []');
39 is_deeply($foo->baz, {}, '... Foo.baz == {}');