summaryrefslogtreecommitdiffstats
path: root/lib/Reply/Plugin/Autocomplete/Lexicals.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Reply/Plugin/Autocomplete/Lexicals.pm')
-rw-r--r--lib/Reply/Plugin/Autocomplete/Lexicals.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Reply/Plugin/Autocomplete/Lexicals.pm b/lib/Reply/Plugin/Autocomplete/Lexicals.pm
index dd953bf..204778a 100644
--- a/lib/Reply/Plugin/Autocomplete/Lexicals.pm
+++ b/lib/Reply/Plugin/Autocomplete/Lexicals.pm
@@ -24,16 +24,16 @@ sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
- $self->{env} = {};
+ $self->{env} = [];
return $self;
}
sub lexical_environment {
my $self = shift;
- my ($name, $env) = @_;
+ my ($env) = @_;
- $self->{env}{$name} = $env;
+ push @{ $self->{env} }, $env;
}
sub tab_handler {
@@ -48,7 +48,7 @@ sub tab_handler {
# these can't be lexicals
return if $sigil eq '&' || $sigil eq '*';
- my $env = { map { %$_ } values %{ $self->{env} } };
+ my $env = { map { %$_ } @{ $self->{env} } };
my @env = keys %$env;
my @results;