Sha256: b30444e37564ffbb79bf3f0e516dc23cfc5ce6d14b3b7e9e4396efc36d9b736a
Contents?: true
Size: 1.5 KB
Versions: 33
Compression:
Stored size: 1.5 KB
Contents
package Moose::Exception::OverloadConflictInSummation;
our $VERSION = '2.2207';
use Moose;
extends 'Moose::Exception';
use Moose::Util 'find_meta';
has 'role_application' => (
is => 'ro',
isa => 'Moose::Meta::Role::Application::RoleSummation',
required => 1
);
has 'role_names' => (
traits => ['Array'],
is => 'bare',
isa => 'ArrayRef[Str]',
handles => {
role_names => 'elements',
},
required => 1,
documentation =>
"This attribute is an ArrayRef containing role names, if you want metaobjects\n"
. "associated with these role names, then call method roles on the exception object.\n",
);
has 'overloaded_op' => (
is => 'ro',
isa => 'Str',
required => 1,
);
sub roles {
my $self = shift;
my @role_names = $self->role_names;
my @roles = map { find_meta($_) } @role_names;
return @roles;
}
sub _build_message {
my $self = shift;
my @roles = $self->role_names;
my $role_names = join "|", @roles;
my $op = $self->overloaded_op;
if ( $op eq 'fallback' ) {
return
'We have encountered an overloading conflict for the fallback '
. 'during composition. This is a fatal error.';
}
else {
return
"Role '$role_names' has encountered an overloading conflict "
. "during composition. The two roles both overload the '$op' operator. "
. 'This is a fatal error.';
}
}
__PACKAGE__->meta->make_immutable;
1;
Version data entries
33 entries across 21 versions & 1 rubygems