dougm 01/04/12 18:41:54 Added: t/hooks/TestHooks fixup.pm Log: add a test for PerlFixupHandler Revision Changes Path 1.1 modperl-2.0/t/hooks/TestHooks/fixup.pm Index: fixup.pm =================================================================== package TestHooks::fixup; use strict; use warnings FATAL => 'all'; use Apache::Test; sub handler { my $r = shift; $r->notes->set(ok => 1); Apache::OK; } sub response { my $r = shift; plan $r, tests => 1; ok $r->notes->get('ok'); Apache::OK; } 1; __DATA__ PerlResponseHandler TestHooks::fixup::response SetHandler modperl