/t/response/TestModPerl/Basic.pm
http://github.com/http-engine/HTTP-Engine · Perl · 32 lines · 26 code · 6 blank · 0 comment · 0 complexity · 44f11261dc2d67021b7644d1d0287ebd MD5 · raw file
- package TestModPerl::Basic;
- use strict;
- use base qw(HTTP::Engine::Interface::ModPerl);
- use Apache::Test;
- sub handler : method
- {
- my ($class, $r) = @_;
- plan($r, tests => 1);
- my $res = $class->SUPER::handler($r);
- ok(1);
- return $res;
- }
- sub create_engine {
- my ( $class, $r ) = @_;
- HTTP::Engine->new(
- interface => HTTP::Engine::Interface::ModPerl->new(
- request_handler => sub {
- my $req = shift;
- HTTP::Engine::Response->new(
- status => 200,
- )
- },
- )
- );
- }
- 1;