From 96ed58c6de66c8495cb3982373fb82ab19508536 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 16 Aug 2016 03:37:03 -0400
Subject: add #vars command to list currently in scope variable names (#39)

---
 lib/Reply/Plugin/Defaults.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lib/Reply/Plugin/Defaults.pm')

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
 
-- 
cgit v1.2.3-54-g00ecf