BEGIN {
$Moose::Meta::Role::Method::Conflicting::AUTHORITY = 'cpan:STEVAN';
}
{
$Moose::Meta::Role::Method::Conflicting::VERSION = '2.0602';
}
use strict;
__PACKAGE__->meta->add_attribute('roles' => (
reader => 'roles',
required => 1,
Class::MOP::_definition_context(),
));
sub roles_as_english_list {
my $self = shift;
Moose::Util::english_list( map { q{'} . $_ . q{'} } @{ $self->roles } );
}
1;
# ABSTRACT: A Moose metaclass for conflicting methods in Roles
=pod
=head1 NAME
Moose::Meta::Role::Method::Conflicting - A Moose metaclass for conflicting methods in Roles
=head1 VERSION
version 2.0602
=head1 DESCRIPTION
=head1 INHERITANCE
C<Moose::Meta::Role::Method::Conflicting> is a subclass of
L<Moose::Meta::Role::Method::Required>.
=head1 METHODS
=over 4
=item B<< Moose::Meta::Role::Method::Conflicting->new(%options) >>
This creates a new type constraint based on the provided C<%options>:
=over 8
=item * name
The method name. This is required.
=item * roles
The list of role names that generated the conflict. This is required.
=back
=item B<< $method->name >>
Returns the conflicting method's name, as provided to the constructor.
=item B<< $method->roles >>
Returns the roles that generated this conflicting method, as provided to the
constructor.
=item B<< $method->roles_as_english_list >>
Returns the roles that generated this conflicting method as an English list.
=back
=head1 BUGS
See L<Moose/BUGS> for details on reporting bugs.
=head1 AUTHOR
Moose is maintained by the Moose Cabal, along with the help of many contributors. See L<Moose/CABAL> and L<Moose/CONTRIBUTORS> for details.
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Infinity Interactive, Inc..
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__END__