The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package OX::Meta::Conflict;
BEGIN {
  $OX::Meta::Conflict::AUTHORITY = 'cpan:STEVAN';
}
{
  $OX::Meta::Conflict::VERSION = '0.11';
}
use Moose;
use namespace::autoclean;

with 'OX::Meta::Role::Path';

has conflicts => (
    traits  => ['Array'],
    isa     => 'ArrayRef[OX::Meta::Role::Path]',
    default => sub { [] },
    handles => {
        conflicts    => 'elements',
        add_conflict => 'push',
    },
);

sub message {
    my $self = shift;

    my @descs = map {
        $_->type . " " . $_->path . " (" . $_->definition_location . ")"
    } $self->conflicts;

    return "Conflicting paths found: " . join(', ', @descs);
}

sub type { 'conflict' }

__PACKAGE__->meta->make_immutable;

=for Pod::Coverage
  message
  type

=cut

1;