File Coverage

blib/lib/Plack/Middleware/Devel/ForceResponse.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	3	6	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	2	2	100.0
total	43	49	87.7

package Plack::Middleware::Devel::ForceResponse;
use strict;
use warnings;
use parent 'Plack::Middleware';
use Plack::Util::Accessor qw/rate response/;
use Plack::Response;
use HTTP::Status qw/status_message/;

our $VERSION = '0.01';

sub prepare_app {
    my $self = shift;

    $self->rate or $self->rate(25);
    $self->response or $self->response([500]);
}

sub call {
    my($self, $env) = @_;

    if ( $self->rate >= 100 || rand(10000) <= rand($self->rate*100) ) {
        my $status = ${$self->response}[int rand(scalar(@{$self->response}))];
        my $body   = status_message($status);
        my $res = Plack::Response->new(
            $status,
            [
                'Content-Type' => 'text/plain',
                'Content-Length' => length($body),
            ],
            $body,
        );
        return $res->finalize;
    }

    $self->app->($env);
}

1;

__END__