-#!/usr/bin/perl
-
package Devel::REPL::Plugin::CompletionDriver::Turtles;
use Devel::REPL::Plugin;
+use namespace::clean -except => [ "meta" ];
-with qw(
- Devel::REPL::Plugin::Completion
- Devel::REPL::Plugin::Turtles
-);
+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 {