The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

around accessor_metaclass => sub {
my $orig = shift;
my $self = shift;
my $class = $self->$orig();
return Moose::Meta::Class->create_anon_class(
superclasses => [$class],
roles => ['NoInlineAccessor'],
cache => 1,
)->name;
};
no Moose::Role;
{
sub is_inline { 0 }
}
1;