extends qw(CB CA);
has cc => (is => 'rw');
};
-with_immutable sub {
+with_immutable {
my $obj = Child->new(class => 1, child => 1);
ok($obj->child, "local attribute set in constructor");
ok($obj->class, "inherited attribute set in constructor");
CA->meta->get_attribute('ca'),
Class->meta->get_attribute('class'),
)], "correct get_all_attributes");
-}, qw(Class CA CB CC);
+} 'Class', 'CA', 'CB', 'CC';
do {
package Foo;
is_deeply([Bar->meta->get_all_attributes], [
Bar->meta->get_attribute('attr'),
], "correct get_all_attributes");
-} qw(Foo Bar);
+} 'Foo', 'Bar';
done_testing;