Beta Shell v2.0

Beta Shell v2.0 · web2.us.cloudlogin.co

[FM] [CMD] [PHP] [DB] [INFO] [SEC]

File Manager

~ /usr/share/perl5/vendor_perl/Devel/REPL/Meta

3 items

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Plugin.pm	539 B	-rw-r--r--	2022-05-28 03:31:37	Edit Del

Editing: Plugin.pm (539 B)

Path: /usr/share/perl5/vendor_perl/Devel/REPL/Meta/Plugin.pmBack

use strict;
use warnings;
package Devel::REPL::Meta::Plugin;

our $VERSION = '1.003029';

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;