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