1 package Devel::REPL::Plugin::CompletionDriver::Methods;
2 use Devel::REPL::Plugin;
3 use namespace::autoclean;
7 for (qw/Completion FindVariable/) {
8 $self->load_plugin($_);
12 around complete => sub {
14 my ($self, $text, $document) = @_;
16 my $last = $self->last_ppi_element($document);
19 # handle an incomplete method name, and back up to the ->
20 if ($last->isa('PPI::Token::Word')) {
21 my $previous = $last->sprevious_sibling
22 or return $orig->(@_);
23 $previous->isa('PPI::Token::Operator') && $previous->content eq '->'
24 or return $orig->(@_);
25 $incomplete = $last->content;
31 unless $last->isa('PPI::Token::Operator')
32 && $last->content eq '->';
34 # ..which is preceded by a word (class name)
35 my $previous = $last->sprevious_sibling
36 or return $orig->(@_);
37 $previous->isa('PPI::Token::Word') || $previous->isa('PPI::Token::Symbol')
38 or return $orig->(@_);
41 # we have a variable, need to look up its class
42 if ($previous->isa('PPI::Token::Symbol')) {
43 my $object_ref = $self->find_variable($previous->content)
44 or return $orig->(@_);
45 $class = blessed($$object_ref)
46 or return $orig->(@_);
49 $class = $previous->content;
52 # now we have $class->$incomplete
54 my $metaclass = Class::MOP::Class->initialize($class);
56 my $re = qr/^\Q$incomplete/;
61 $metaclass->get_all_methods;
70 Devel::REPL::Plugin::CompletionDriver::Methods - Complete class or object method names
74 Shawn M Moore, C<< <sartak at gmail dot com> >>