blob: 2eae454b8e062b5b0c3857399782889721d3db7d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
package Moose::Exception::IllegalInheritedOptions;
our $VERSION = '2.1405';
use Moose;
extends 'Moose::Exception';
with 'Moose::Exception::Role::ParamsHash';
has 'illegal_options' => (
is => 'ro',
traits => ['Array'],
handles => {
_join_options => 'join',
},
required => 1,
);
sub _build_message {
my $self = shift;
"Illegal inherited options => (".$self->_join_options(', ').")";
}
1;
|