cvs commit: modperl-2.0/t/hooks/TestHooks fixup.pm

[dougm]

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