diff options
Diffstat (limited to 'lib/Reply/Plugin/ResultCache.pm')
-rw-r--r-- | lib/Reply/Plugin/ResultCache.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Reply/Plugin/ResultCache.pm b/lib/Reply/Plugin/ResultCache.pm index 0407a68..9f9b68e 100644 --- a/lib/Reply/Plugin/ResultCache.pm +++ b/lib/Reply/Plugin/ResultCache.pm @@ -22,16 +22,16 @@ include an indication of where the value is stored, for later reference. =cut class Reply::Plugin::ResultCache extends Reply::Plugin { - has $results = []; - has $variable = 'res'; + has $!results = []; + has $!variable = 'res'; method execute ($next, @args) { my @res = $next->(@args); if (@res == 1) { - push @$results, $res[0]; + push @{$!results}, $res[0]; } elsif (@res > 1) { - push @$results, \@res; + push @{$!results}, \@res; } return @res; @@ -39,11 +39,11 @@ class Reply::Plugin::ResultCache extends Reply::Plugin { method mangle_result ($result) { return unless defined $result; - return '$' . $variable . '[' . $#$results . '] = ' . $result; + return '$' . $!variable . '[' . $#{$!results} . '] = ' . $result; } method lexical_environment { - return { "\@$variable" => [ @$results ] }; + return { "\@$!variable" => [ @{$!results} ] }; } } |