Inheritance & metaclass compatibility
MetaA->create_class(
package => 'A',
methods => {
new => sub {
my ($self) = shift;
my $attributes = { @_ };
return bless $attributes, $self;
},
i_foo => sub {
my ($self) = shift;
my $meta = $self->meta;
$meta->c_bar;
},
},
);
A->i_foo();