summaryrefslogtreecommitdiffstats
path: root/lib/Reply/Plugin/ResultCache.pm
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2013-07-10 01:13:42 -0400
committerJesse Luehrs <doy@tozt.net>2013-07-10 01:13:42 -0400
commit7f6fda3414fe5ad689f6fd732a6cb1ca6078d1d0 (patch)
tree259512cb41a0275d62d6f8209135d6cbe5c9d511 /lib/Reply/Plugin/ResultCache.pm
parent9ad70dd68d45203970fed6e7c2bdca13da13d8c4 (diff)
downloadreply-7f6fda3414fe5ad689f6fd732a6cb1ca6078d1d0.tar.gz
reply-7f6fda3414fe5ad689f6fd732a6cb1ca6078d1d0.zip
let plugins query for this info, rather than always publishing it
Diffstat (limited to 'lib/Reply/Plugin/ResultCache.pm')
-rw-r--r--lib/Reply/Plugin/ResultCache.pm12
1 files changed, 5 insertions, 7 deletions
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;