diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-10 01:13:42 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-10 01:13:42 -0400 |
commit | 7f6fda3414fe5ad689f6fd732a6cb1ca6078d1d0 (patch) | |
tree | 259512cb41a0275d62d6f8209135d6cbe5c9d511 /lib/Reply/Plugin/ResultCache.pm | |
parent | 9ad70dd68d45203970fed6e7c2bdca13da13d8c4 (diff) | |
download | reply-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.pm | 12 |
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; |