1 package Devel::REPL::Plugin::CompletionDriver::Methods;
2 use Devel::REPL::Plugin;
3 use namespace::clean -except => [ 'meta' ];
5 around complete => sub {
7 my ($self, $text, $document) = @_;
9 my $last = $self->last_ppi_element($document);
12 # handle an incomplete method name, and back up to the ->
13 if ($last->isa('PPI::Token::Word')) {
14 my $previous = $last->sprevious_sibling
15 or return $orig->(@_);
16 $previous->isa('PPI::Token::Operator') && $previous->content eq '->'
17 or return $orig->(@_);
18 $incomplete = $last->content;
24 unless $last->isa('PPI::Token::Operator')
25 && $last->content eq '->';
27 # ..which is preceded by a word (class name)
28 my $previous = $last->sprevious_sibling
29 or return $orig->(@_);
30 $previous->isa('PPI::Token::Word')
31 or return $orig->(@_);
32 my $class = $previous->content;
34 # now we have $class->$incomplete
36 my $metaclass = Class::MOP::Class->initialize($class);
38 my $re = qr/^\Q$incomplete/;
43 $metaclass->compute_all_applicable_methods;