blob: 1ba2a854e6dd07bf08d69813c8a4e665664cc530 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
package Moose::Exception::IsaLacksDoesMethod;
our $VERSION = '2.1405';
use Moose;
extends 'Moose::Exception';
with 'Moose::Exception::Role::InvalidAttributeOptions';
sub _build_message {
my $self = shift;
"Cannot have an isa option which cannot ->does() on attribute (".$self->attribute_name.")";
}
1;
|