/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

  1. package TestModPerl::Basic;
  2. use strict;
  3. use base qw(HTTP::Engine::Interface::ModPerl);
  4. use Apache::Test;
  5. sub handler : method
  6. {
  7. my ($class, $r) = @_;
  8. plan($r, tests => 1);
  9. my $res = $class->SUPER::handler($r);
  10. ok(1);
  11. return $res;
  12. }
  13. sub create_engine {
  14. my ( $class, $r ) = @_;
  15. HTTP::Engine->new(
  16. interface => HTTP::Engine::Interface::ModPerl->new(
  17. request_handler => sub {
  18. my $req = shift;
  19. HTTP::Engine::Response->new(
  20. status => 200,
  21. )
  22. },
  23. )
  24. );
  25. }
  26. 1;