use warnings;
use strict;
-use NEXT;
+use MRO::Compat;
use Scalar::Util qw(weaken);
=head1 NAME
$self->{context} = $context;
weaken($self->{context});
-
- return $self->NEXT::ACCEPT_CONTEXT($context, @_) || $self;
+
+ return $self->maybe::next::method($context, @_) || $self;
}
=head2 COMPONENT
my $args = shift;
$args->{context} = $app;
weaken($args->{context}) if ref $args->{context};
- return $class->NEXT::COMPONENT($app, $args, @_);
+ return $class->maybe::next::method($app, $args, @_);
}
=head1 AUTHOR