view release on metacpan or  search on metacpan

lib/App/plackbench.pm  view on Meta::CPAN

    push @{$self->fixup()}, $sub;

    return;
}

sub _execute_request {
    my $self = shift;
    my $request = shift;
    my $response = $self->tester->request($request);
    if ( $response->is_error() ) {
        die "Request failed: " . $response->decoded_content;
    }

    return;
}

1;

__END__

=head1 NAME

t/test_app.psgi  view on Meta::CPAN

    my $response = HTTP::Response->new(404, 'Not Found', [], 'Not Found');
    if (my $sub = __PACKAGE__->can($method)) {
        $response = $sub->($request);
    }

    push @requests, $request;

    my @headers = map { $_ => $response->header($_) } $response->header_field_names();

    my $return = [$response->code(), \@headers, [ $response->decoded_content() ]];
    return $return;
};

bless($app, __PACKAGE__);

# Make sure this is the last statement in the file:
$app;

# vi: set ft=perl :