From 6d67faeafe38ddb6277e0f7115aec453acf68cec Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 28 Sep 2012 23:45:28 -0500
Subject: handle encoding

---
 lib/Web/Response.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/Web/Response.pm b/lib/Web/Response.pm
index 6516021..65fc372 100644
--- a/lib/Web/Response.pm
+++ b/lib/Web/Response.pm
@@ -157,10 +157,19 @@ sub finalize {
 sub _finalize_streaming {
     my $self = shift;
 
+    my $streaming = $self->streaming_response;
+
     # XXX cookies?
-    # XXX encoding?
 
-    return $self->streaming_response;
+    return $streaming unless $self->has_encoding;
+
+    return Plack::Util::response_cb($streaming, sub {
+        return sub {
+            my $chunk = shift;
+            return unless defined $chunk;
+            return $self->_encode($chunk);
+        };
+    });
 }
 
 sub _encode {
-- 
cgit v1.2.3-54-g00ecf