X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FMeta%2FPlugin.pm;fp=lib%2FDevel%2FREPL%2FMeta%2FPlugin.pm;h=cd544c7e4f1c0e2ce8787d7df9d944bb7eeada2d;hp=c9cca5fcb9b0f2eb79844a2d0d1b1993f5d77ab0;hb=036068ec75460f780e0a3bfb1fca67ae719fc569;hpb=381b5fa4aeb39bf3e3eaa79eba2cee383422b273

diff --git a/lib/Devel/REPL/Meta/Plugin.pm b/lib/Devel/REPL/Meta/Plugin.pm
index c9cca5f..cd544c7 100644
--- a/lib/Devel/REPL/Meta/Plugin.pm
+++ b/lib/Devel/REPL/Meta/Plugin.pm
@@ -6,6 +6,7 @@ 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);
   }
@@ -13,6 +14,7 @@ before 'apply' => sub {
 
 after 'apply' => sub {
   my ($self, $other) = @_;
+  return unless $other->isa('Devel::REPL');
   if (my $pre = $self->get_method('AFTER_PLUGIN')) {
     $pre->body->($other, $self);
   }