blob: 205841e3194a238e458a6ca959af657843904850 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
package Reply::Plugin::Autocomplete::Functions;
use strict;
use warnings;
# ABSTRACT: tab completion for function names
use base 'Reply::Plugin';
use Module::Runtime '$module_name_rx';
use Package::Stash;
=head1 SYNOPSIS
; .replyrc
[ReadLine]
[Autocomplete::Functions]
=head1 DESCRIPTION
This plugin registers a tab key handler to autocomplete function names in Perl
code, including imported functions.
=cut
sub tab_handler {
my $self = shift;
my ($line) = @_;
my ($before, $fragment) = $line =~ /(.*?)(${module_name_rx}(::)?)$/;
return unless $fragment;
return if $before =~ /^#/; # commands
my $current_package = ($self->publish('package'))[-1];
my ($package, $func);
if ($fragment =~ /:/) {
($package, $func) = ($fragment =~ /^(.+:)(\w*)$/);
$func = '' unless defined $func;
$package =~ s/:{1,2}$//;
}
else {
$package = $current_package;
$func = $fragment;
}
return
map { $package eq $current_package ? $_ : "$package\::$_" }
grep { $func ? /^\Q$func/ : 1 }
'Package::Stash'->new($package)->list_all_symbols('CODE');
}
1;
|
