1package Moose::Exception::CanExtendOnlyClasses;
2our $VERSION = '2.2201';
3
4use Moose;
5extends 'Moose::Exception';
6with 'Moose::Exception::Role::Role';
7
8sub _build_message {
9    my $self      = shift;
10    my $role_name = $self->role_name;
11    return "You cannot inherit from a Moose Role ($role_name)";
12}
13
14__PACKAGE__->meta->make_immutable;
151;
16