-#!/usr/bin/perl
-
+use strict;
+use warnings;
package Devel::REPL::Plugin::CompletionDriver::Turtles;
-use Devel::REPL::Plugin;
+# ABSTRACT: Complete Turtles-based commands
+
+our $VERSION = '1.003028';
-use namespace::clean -except => [ "meta" ];
+use Devel::REPL::Plugin;
+use Devel::REPL::Plugin::Completion; # die early if cannot load
+use namespace::autoclean;
-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 {
__END__
-=head1 NAME
-
-Devel::REPL::Plugin::CompletionDriver::Turtles - Complete Turtles-based commands
+=pod
=head1 AUTHOR
Yuval Kogman E<lt>nothingmuch@woobling.orgE<gt>
=cut
-