summaryrefslogtreecommitdiffstats
path: root/lib/Reply/Plugin/Defaults.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Reply/Plugin/Defaults.pm')
-rw-r--r--lib/Reply/Plugin/Defaults.pm9
1 files changed, 1 insertions, 8 deletions
diff --git a/lib/Reply/Plugin/Defaults.pm b/lib/Reply/Plugin/Defaults.pm
index adf5c0e..89c618e 100644
--- a/lib/Reply/Plugin/Defaults.pm
+++ b/lib/Reply/Plugin/Defaults.pm
@@ -21,7 +21,6 @@ sub new {
my $self = $class->SUPER::new(@_);
$self->{quit} = 0;
- $self->{env} = [];
$self->{package} = 'main';
return $self;
@@ -49,7 +48,7 @@ sub compile {
my $self = shift;
my ($next, $line, %args) = @_;
- my $env = { map { %$_ } @{ $self->{env} } };
+ my $env = { map { %$_ } $self->publish('lexical_environment') };
my $prefix = "package $self->{package};\n$PREFIX";
@@ -67,12 +66,6 @@ sub compile {
return $code;
}
-sub lexical_environment {
- my $self = shift;
- my ($env) = @_;
- push @{ $self->{env} }, $env;
-}
-
sub package {
my $self = shift;
my ($package) = @_;