Yes. Play around with this:

use v5.14;
use warnings;

package MonkeyMan::Error {
    use Moose;
    
    my @subclasses = qw( Unrecoverable Unrecoverable::BrainDamage );
    
    for my $stem (@subclasses)
    {
        my $subclass = join "::" => (__PACKAGE__, $stem);
        my $parent   = ($subclass =~ s/::\w+$//r);
        
        warn "Creating $subclass with parent $parent\n";
        Moose::Meta::Class->create(
            $subclass => ( superclasses => [ $parent ] ),
        );
    }
}

my $err = MonkeyMan::Error::Unrecoverable::BrainDamage->new;
print $err->dump;
[download]