diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-02 02:47:17 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-02 02:47:17 -0400 |
commit | 62873e077363d0ea19351df5d88277af3589f39e (patch) | |
tree | 5667c582ca456195ddef5ffdc6401c9d4ebe00c0 | |
parent | 444d04382708f5018f672495bcc539b65838555d (diff) | |
download | reply-62873e077363d0ea19351df5d88277af3589f39e.tar.gz reply-62873e077363d0ea19351df5d88277af3589f39e.zip |
clean up some more tab completion stuff
-rw-r--r-- | lib/Reply/Plugin/Autocomplete/Keywords.pm | 1 | ||||
-rw-r--r-- | lib/Reply/Plugin/Autocomplete/Packages.pm | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/lib/Reply/Plugin/Autocomplete/Keywords.pm b/lib/Reply/Plugin/Autocomplete/Keywords.pm index 04b6a17..9e22ae4 100644 --- a/lib/Reply/Plugin/Autocomplete/Keywords.pm +++ b/lib/Reply/Plugin/Autocomplete/Keywords.pm @@ -26,6 +26,7 @@ sub tab_handler { my ($before, $last_word) = $line =~ /(.*?)(\w+)$/; return unless $last_word; return if $before =~ /::$/; # Package::function call + return if $before =~ /->\s*$/; # method call return if $before =~ /[\$\@\%\&\*]\s*$/; my $re = qr/^\Q$last_word/; diff --git a/lib/Reply/Plugin/Autocomplete/Packages.pm b/lib/Reply/Plugin/Autocomplete/Packages.pm index 6e6037d..c0a81a9 100644 --- a/lib/Reply/Plugin/Autocomplete/Packages.pm +++ b/lib/Reply/Plugin/Autocomplete/Packages.pm @@ -27,6 +27,7 @@ sub tab_handler { # $module_name_rx does not permit trailing :: my ($before, $package_fragment) = $line =~ /(.*?)(${module_name_rx}:?:?)$/; return unless $package_fragment; + return if $before =~ /->\s*$/; # method call return if $before =~ /[\$\@\%\&\*]\s*$/; my $file_fragment = $package_fragment; |