diff options
Diffstat (limited to 'lib/Reply/Plugin/Defaults.pm')
-rw-r--r-- | lib/Reply/Plugin/Defaults.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/Reply/Plugin/Defaults.pm b/lib/Reply/Plugin/Defaults.pm index bbe5934..886e75f 100644 --- a/lib/Reply/Plugin/Defaults.pm +++ b/lib/Reply/Plugin/Defaults.pm @@ -92,6 +92,13 @@ sub command_q { return ''; } +sub command_vars { + my $self = shift; + + my %env = map { %$_ } $self->publish('lexical_environment'); + return '(' . join(', ', map { qq<'$_'> } keys %env) . ')'; +} + sub loop { my $self = shift; my ($continue) = @_; @@ -105,6 +112,7 @@ sub loop { new command_q + command_vars =end Pod::Coverage |