[p5sagit/Devel-REPL.git] / lib / Devel / REPL / Plugin / CompletionDriver / Keywords.pm

package Devel::REPL::Plugin::CompletionDriver::Keywords;
use Devel::REPL::Plugin;
use B::Keywords qw/@Functions @Barewords/;
use namespace::clean -except => [ 'meta' ];

around complete => sub {
  my $orig = shift;
  my ($self, $text, $document) = @_;

  # recursively find the last element
  my $last = $document;
  while ($last->can('last_element') && defined($last->last_element)) {
      $last = $last->last_element;
  }

  return $orig->(@_)
    unless $last->isa('PPI::Token::Word');

  my $re = qr/^\Q$last/;

  return $orig->(@_),
         grep { $_ =~ $re } @Functions, @Barewords;
};

1;
Commit	Line	Data
1989c3d2	1	package Devel::REPL::Plugin::CompletionDriver::Keywords;
	2	use Devel::REPL::Plugin;
	3	use B::Keywords qw/@Functions @Barewords/;
	4	use namespace::clean -except => [ 'meta' ];
	5
	6	around complete => sub {
	7	my $orig = shift;
	8	my ($self, $text, $document) = @_;
	9
	10	# recursively find the last element
	11	my $last = $document;
	12	while ($last->can('last_element') && defined($last->last_element)) {
	13	$last = $last->last_element;
	14	}
	15
	16	return $orig->(@_)
	17	unless $last->isa('PPI::Token::Word');
	18
	19	my $re = qr/^\Q$last/;
	20
	21	return $orig->(@_),
	22	grep { $_ =~ $re } @Functions, @Barewords;
	23	};
	24
	25	1;
	26