From 7f6fda3414fe5ad689f6fd732a6cb1ca6078d1d0 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 10 Jul 2013 01:13:42 -0400
Subject: let plugins query for this info, rather than always publishing it

---
 lib/Reply/Plugin/LexicalPersistence.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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

diff --git a/lib/Reply/Plugin/LexicalPersistence.pm b/lib/Reply/Plugin/LexicalPersistence.pm
index 8437cbe..2e972bf 100644
--- a/lib/Reply/Plugin/LexicalPersistence.pm
+++ b/lib/Reply/Plugin/LexicalPersistence.pm
@@ -41,9 +41,13 @@ sub compile {
         %{ peek_sub($code) },
     };
 
-    $self->publish('lexical_environment', $self->{env});
-
     return $code;
 }
 
+sub lexical_environment {
+    my $self = shift;
+
+    return $self->{env};
+}
+
 1;
-- 
cgit v1.2.3-54-g00ecf