File Coverage

blib/lib/Plack/Middleware/SuppressResponseCodes.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Plack::Middleware::SuppressResponseCodes;
{
  $Plack::Middleware::SuppressResponseCodes::VERSION = '0.2';
}
#ABSTRACT: Return HTTP Status code 200 for errors on request

use strict;
use parent qw(Plack::Middleware);

use Plack::Util;

sub call {
    my($self, $env) = @_;
    my $res = $self->app->($env);
    Plack::Util::response_cb($res, sub {
        my $res = shift;
        if ( $res->[0] =~ /^[45]../ and
             $env->{QUERY_STRING} =~ /(?:^|&)suppress_response_codes(=([^&]+))?/
             and !($1 and $2 =~ /^(0|false)$/) ) {
            $res->[0] = 200;
        }
    });
}

1;



__END__