debian/perl-framework/Apache-Test/Apache-TestItSelf/Apache-TestMe/t/response/TestBasic/Hello.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

package TestBasic::Hello;

use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Const -compile => qw(OK);

# XXX: adjust the test that it'll work under mp1 as well

sub handler {

  my $r = shift;

  $r->content_type('text/plain');
  $r->print('Hello');

  return Apache2::OK;
}

1;