1# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- 2package TestHooks::headerparser; 3 4use strict; 5use warnings FATAL => 'all'; 6 7use Apache::Test; 8 9use APR::Table (); 10use Apache2::RequestRec (); 11 12use Apache2::Const -compile => 'OK'; 13 14sub handler { 15 my $r = shift; 16 17 $r->notes->set(headerparser => 'set'); 18 19 Apache2::Const::OK; 20} 21 22sub response { 23 my $r = shift; 24 25 plan $r, tests => 1; 26 27 ok $r->notes->get('headerparser') eq 'set'; 28 29 Apache2::Const::OK; 30} 31 321; 33__DATA__ 34PerlOptions +SetupEnv 35PerlResponseHandler TestHooks::headerparser::response 36SetHandler modperl 37