diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-05-31 03:10:51 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-05-31 03:10:51 -0500 |
commit | cf4edf5661ed8cfaa392e5ee63b0d75a70ac0c87 (patch) | |
tree | 04a45870971e977485b4d888a1dd6e94f98dd8b8 | |
parent | bc5ef3860cd51aedff32d087ffcebbf80fc026d3 (diff) | |
download | reply-cf4edf5661ed8cfaa392e5ee63b0d75a70ac0c87.tar.gz reply-cf4edf5661ed8cfaa392e5ee63b0d75a70ac0c87.zip |
display the variable it's stored in when using the result cache
-rw-r--r-- | lib/Reply/Plugin/ResultCache.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/Reply/Plugin/ResultCache.pm b/lib/Reply/Plugin/ResultCache.pm index 517c539..b43eff3 100644 --- a/lib/Reply/Plugin/ResultCache.pm +++ b/lib/Reply/Plugin/ResultCache.pm @@ -38,4 +38,11 @@ sub execute { return @res; } +sub mangle_result { + my $self = shift; + my ($result) = @_; + + return '$res[' . $#{ $self->{results} } . '] = ' . $result; +} + 1; |