diff options
Diffstat (limited to 'lib/Reply/Plugin/Defaults.pm')
-rw-r--r-- | lib/Reply/Plugin/Defaults.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Reply/Plugin/Defaults.pm b/lib/Reply/Plugin/Defaults.pm index b0c4e88..debed09 100644 --- a/lib/Reply/Plugin/Defaults.pm +++ b/lib/Reply/Plugin/Defaults.pm @@ -38,6 +38,15 @@ sub compile { my $self = shift; my ($next, $line, %args) = @_; + my @envs = ( + ($args{environment} ? ($args{environment}) : ()), + values %{ $args{environments} }, + ); + + if (@envs) { + $args{environment} = { map { %$_ } @envs } + } + return eval_closure( source => "sub {\n$PREFIX;\n$line\n}", terse_error => 1, |