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

use Moose;
extends 'Moose::Exception';
with 'Moose::Exception::Role::Class', 'Moose::Exception::Role::Instance', 'Moose::Exception::Role::InstanceClass';

sub _build_message {
    my $self = shift;
    "You may rebless only into a superclass of (".blessed( $self-&gt;instance )."), of which (". $self-&gt;class_name .") isn't."
}

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