<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package Moose::Exception::MetaclassIsNotASubclassOfGivenMetaclass;
our $VERSION = '2.2013';

use Moose;
extends 'Moose::Exception';
with 'Moose::Exception::Role::Class';

use Moose::Util 'find_meta';

has 'metaclass' =&gt; (
    is       =&gt; 'ro',
    isa      =&gt; 'Str',
    required =&gt; 1
);

sub _build_message {
    my $self = shift;
    my $class = find_meta( $self-&gt;class_name );
    $self-&gt;class_name." already has a metaclass, but it does not inherit ".$self-&gt;metaclass." ($class).";
}

__PACKAGE__-&gt;meta-&gt;make_immutable;
1;
</pre></body></html>