use namespace::clean -except => [ 'meta' ];
has current_matches => (
- is => 'rw',
- isa => 'ArrayRef',
- lazy => 1,
- default => sub { [] },
+ is => 'rw',
+ isa => 'ArrayRef',
+ lazy => 1,
+ default => sub { [] },
);
has match_index => (
- is => 'rw',
- isa => 'Int',
- lazy => 1,
- default => sub { 0 },
+ is => 'rw',
+ isa => 'Int',
+ lazy => 1,
+ default => sub { 0 },
);
sub BEFORE_PLUGIN {
my ($self, $text, $line, $start, $end) = @_;
# we're discarding everything after the cursor for completion purposes
+ # we can't just use $text because we want all the code before the cursor to
+ # matter, not just the current word
substr($line, $end) = '';
my $document = PPI::Document->new(\$line);
return unless defined($document);
+ $document->prune('PPI::Token::Whitespace');
+
my @matches = $self->complete($text, $document);
# iterate through the completions