-#!/usr/bin/perl
-
+use strict;
+use warnings;
package Devel::REPL::Plugin::CompletionDriver::Turtles;
+
use Devel::REPL::Plugin;
+use Devel::REPL::Plugin::Completion; # die early if cannot load
+use namespace::autoclean;
-use namespace::clean -except => [ "meta" ];
+sub BEFORE_PLUGIN {
+ my $self = shift;
+ $self->load_plugin('Completion');
+}
around complete => sub {
my $orig = shift;
map { "$pre$_" }
grep { $_ =~ $filter }
map { /^expr?_command_(\w+)/ ? $1 : () }
- map { $_->{name} }
- $self->meta->compute_all_applicable_methods
+ map { $_->name }
+ $self->meta->get_all_methods
),
);
} else {