File Coverage

blib/lib/Plack/Middleware/IIS7KeepAliveFix.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch	2	4	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	27	31	87.1

package Plack::Middleware::IIS7KeepAliveFix;

use strict;
use parent 'Plack::Middleware';
use Plack::Util;

sub call {
    my($self, $env) = @_;
        # Fixes buffer being cut off on redirect when keep-alive is active
        my $res  = $self->app->($env);

        Plack::Util::response_cb($res, sub {
            my $res = shift;
            if ($res->[0] =~ m!^30[123]$! ) {
                Plack::Util::header_remove($res->[1], 'Content-Length');
                Plack::Util::header_remove($res->[1], 'Content-Type');
               return sub{ my $chunk; return unless defined $chunk; return ''; };
            }

            return;
        });

}

1;
__END__