+++ /dev/null
-package Devel::REPL::Plugin::AutoloadModules;
-
-use Moose::Role;
-use namespace::clean -except => [ 'meta' ];
-use Data::Dumper;
-
-has 'autoloaded' => ( is => 'rw', isa => 'HashRef', default => sub { {} } );
-
-my $re = qr/Runtime error: Can.t locate object method "\w+" via package "\w+" \(perhaps you forgot to load "(\w+)"\?\)/;
-around 'execute' => sub {
- my $orig = shift;
- my $self = shift;
-
- my @re = $self->$orig(@_); # original call
-
- return @re unless defined $re[0] && $re[0] =~ /$re/; # if there is no "perhaps you forgot" error, just return
- my $module = $1; # save the missing package name
-
- return @re if $self->autoloaded->{$module}; # if we tried to load it before, give up and return the error
-
- $self->autoloaded->{$module} = 1; # make sure we don't try this again
- $self->eval("use SL::$module"); # try to load the missing module
-
- @re = $self->$orig(@_); # try again
-
- return @re;
-};
-
-1;