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/ResultCache.pm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

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

diff --git a/lib/Reply/Plugin/ResultCache.pm b/lib/Reply/Plugin/ResultCache.pm
index 5a241e3..6ecf9f6 100644
--- a/lib/Reply/Plugin/ResultCache.pm
+++ b/lib/Reply/Plugin/ResultCache.pm
@@ -44,13 +44,6 @@ sub execute {
         push @{ $self->{results} }, \@res;
     }
 
-    $self->publish(
-        'lexical_environment',
-        {
-            "\@$self->{result_name}" => $self->{results},
-        },
-    );
-
     return @res;
 }
 
@@ -63,4 +56,9 @@ sub mangle_result {
          . $result;
 }
 
+sub lexical_environment {
+    my $self = shift;
+    return { "\@$self->{result_name}" => $self->{results} };
+}
+
 1;
-- 
cgit v1.2.3-54-g00ecf