10 package Bar::Meta::Attribute;
13 extends 'Moose::Meta::Attribute';
15 has 'my_illegal_option' => (
20 around illegal_options_for_inheritance => sub {
21 return (shift->(@_), qw/my_illegal_option/);
28 metaclass => 'Bar::Meta::Attribute',
29 my_illegal_option => sub { 'Bar' },
34 my $bar_attr = Bar->meta->get_attribute('bar');
35 my ($illegal_option) = grep {
36 $_ eq 'my_illegal_option'
37 } $bar_attr->illegal_options_for_inheritance;
38 is($illegal_option, 'my_illegal_option',
39 '... added my_illegal_option as illegal option for inheritance' );