3 package Devel::REPL::Meta::Plugin;
7 extends 'Moose::Meta::Role';
9 before 'apply' => sub {
10 my ($self, $other) = @_;
11 return unless $other->isa('Devel::REPL');
12 if (my $pre = $self->get_method('BEFORE_PLUGIN')) {
13 $pre->body->($other, $self);
17 after 'apply' => sub {
18 my ($self, $other) = @_;
19 return unless $other->isa('Devel::REPL');
20 if (my $pre = $self->get_method('AFTER_PLUGIN')) {
21 $pre->body->($other, $self);