Support binary response

lib/Tatsumaki/Handler.pm

@@ -18,6 +18,7 @@ has writer   => (is => 'rw');
 has mxhr     => (is => 'rw', isa => 'Bool');
 has mxhr_boundary => (is => 'rw', isa => 'Str', lazy => 1, lazy_build => 1);
 has json     => (is => 'rw', isa => 'JSON', lazy => 1, default => sub { JSON->new->utf8 });
+has binary   => (is => 'rw', isa => 'Bool');
 
 has _write_buffer => (is => 'rw', isa => 'ArrayRef', lazy => 1, default => sub { [] });
 
@@ -172,6 +173,8 @@ sub get_chunk {
             $self->response->content_type('application/json');
             return $self->json->encode($_[0]);
         }
+    } elsif ($self->binary) {
+        join '', @_;
     } else {
         join '', map Encode::encode_utf8($_), @_;
     }

t/handler/binary.t

@@ -0,0 +1,31 @@
+package BinaryApp;
+use base qw(Tatsumaki::Handler);
+
+sub get {
+    my $self = shift;
+    my $binary = "foo\xdabar";
+    $self->binary(1);
+    $self->response->content_type('text/plain; charset=latin-1');
+    $self->write($binary);
+}
+
+package main;
+use Plack::Test;
+use Test::More;
+use HTTP::Request::Common;
+use Tatsumaki::Application;
+$Plack::Test::Impl = "Server";
+
+my $app = Tatsumaki::Application->new([
+    '/binary'  => 'BinaryApp',
+]);
+
+test_psgi $app, sub {
+    my $cb = shift;
+
+    my $res = $cb->(GET "http://localhost/binary");
+    is $res->content, "foo\xdabar";
+    is length $res->content, 7;
+};
+
+done_testing;