1 files changed, 31 insertions, 0 deletions
diff --git a/lib/Net/HTTP/Spore/Middleware.pm b/lib/Net/HTTP/Spore/Middleware.pm
new file mode 100644
index 0000000..0b8584c
--- /dev/null
+++ b/lib/Net/HTTP/Spore/Middleware.pm
@@ -0,0 +1,31 @@
+package Net::HTTP::Spore::Middleware;
+
+use strict;
+use warnings;
+
+sub new {
+    my $class = shift;
+    bless {@_}, $class;
+}
+
+sub response_cb {
+    my ($self, $cb) = @_;
+
+    my $body_filter = sub {
+        my $filter = $cb->(@_);
+    };
+    return $body_filter;
+}
+
+sub wrap {
+    my ($self, @args) = @_;
+
+    if (!ref $self) {
+        $self = $self->new(@args);
+    }
+    return sub {
+        $self->call(@_);
+    };
+}
+
+1;