12 Foo->meta->add_attribute( '@foo', accessor => 'foo' );
13 Foo->meta->add_attribute( '!bar', reader => 'bar' );
14 Foo->meta->add_attribute( '%baz', reader => 'baz' );
20 for my $name ( '@foo', '!bar', '%baz' ) {
22 $meta->has_attribute($name),
23 "Foo has $name attribute"
26 my $meth = substr $name, 1;
27 ok( $meta->has_method($meth), 'Foo has $meth method' );
30 $meta->make_immutable, redo
31 unless $meta->is_immutable;