From bc5ef3860cd51aedff32d087ffcebbf80fc026d3 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 31 May 2013 03:07:12 -0500
Subject: result cache plugin

---
 lib/Reply/Plugin/ResultCache.pm | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 lib/Reply/Plugin/ResultCache.pm

diff --git a/lib/Reply/Plugin/ResultCache.pm b/lib/Reply/Plugin/ResultCache.pm
new file mode 100644
index 0000000..517c539
--- /dev/null
+++ b/lib/Reply/Plugin/ResultCache.pm
@@ -0,0 +1,41 @@
+package Reply::Plugin::ResultCache;
+use strict;
+use warnings;
+
+use base 'Reply::Plugin';
+
+sub new {
+    my $class = shift;
+
+    my $self = $class->SUPER::new(@_);
+    $self->{results} = [];
+
+    return $self;
+}
+
+sub compile {
+    my $self = shift;
+    my ($next, $line, %args) = @_;
+
+    $args{environment} ||= {};
+    $args{environment}{'@res'} = $self->{results};
+
+    $next->($line, %args);
+}
+
+sub execute {
+    my $self = shift;
+    my ($next, @args) = @_;
+
+    my @res = $next->(@args);
+    if (@res == 1) {
+        push @{ $self->{results} }, $res[0];
+    }
+    elsif (@res > 1) {
+        push @{ $self->{results} }, \@res;
+    }
+
+    return @res;
+}
+
+1;
-- 
cgit v1.2.3-54-g00ecf