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

use List::MoreUtils 'any';

use OX::Meta::Middleware;

has middleware => (
    traits  => ['Array'],
    isa     => 'ArrayRef[OX::Meta::Middleware]',
    default => sub { [] },
    handles => {
        middleware        => 'elements',
        _add_middleware   => 'push',
        _clear_middleware => 'clear',
    },
);

sub add_middleware {
    my $self = shift;

    $self->_add_middleware(OX::Meta::Middleware->new(@_));
}

sub has_middleware_dependencies {
    my $self = shift;

    return any { %{ $_->dependencies } } $self->middleware;
}

sub all_middleware {
    my $self = shift;
    return $self->middleware;
}

=for Pod::Coverage
  add_middleware
  has_middleware_dependencies
  all_middleware

=cut

1;