use File::Spec;
use namespace::clean -except => [ 'meta' ];
-with qw(
- Devel::REPL::Plugin::Completion
-);
+sub BEFORE_PLUGIN {
+ my $self = shift;
+ $self->load_plugin('Completion');
+}
around complete => sub {
my $orig = shift;
my $add_recursively;
$add_recursively = sub {
my ($path, $iteration, @more) = @_;
- opendir((my $dirhandle), $path);
+ opendir((my $dirhandle), $path) || return;
for (grep { !$ignored{$_} } readdir $dirhandle)
{
my $match = $_;