1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
use strict;
use warnings;
package Devel::REPL::Meta::Plugin;
our $VERSION = '1.003028';
use Moose;
use namespace::autoclean;
extends 'Moose::Meta::Role';
before 'apply' => sub {
my ($self, $other) = @_;
return unless $other->isa('Devel::REPL');
if (my $pre = $self->get_method('BEFORE_PLUGIN')) {
$pre->body->($other, $self);
}
};
after 'apply' => sub {
my ($self, $other) = @_;
return unless $other->isa('Devel::REPL');
if (my $pre = $self->get_method('AFTER_PLUGIN')) {
$pre->body->($other, $self);
}
};
1;
|
