diff options
| -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; |