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

use Moose;
extends 'Moose::Exception';

has 'method_destructor_object' =&gt; (
    is       =&gt; 'ro',
    isa      =&gt; 'Moose::Meta::Method::Destructor',
    required =&gt; 1
);

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

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

sub _build_message {
    my $self = shift;
    my $error = $self-&gt;error;
    my $source = $self-&gt;source;

    return "Could not eval the destructor :\n\n$source\n\nbecause :\n\n$error";
}

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