NAME
MPMinus::BaseHandlers - Base handlers of MPMinus
VERSION
Version 1.01
SYNOPSIS
package MPM::foo::Handlers;
use strict;
use MPMinus;
use base qw/MPMinus::BaseHandlers/;
sub new { bless {}, __PACKAGE__ }
sub handler {
my $r = shift;
my $m = MPMinus->m;
$m->conf_init($r, __PACKAGE__);
# Handlers
$r->handler('modperl'); # modperl, perl-script
$r->set_handlers(PerlAccessHandler => sub { __PACKAGE__->AccessHandler($m) });
$r->set_handlers(PerlFixupHandler => sub { __PACKAGE__->FixupHandler($m) });
$r->set_handlers(PerlResponseHandler => sub { __PACKAGE__->ResponseHandler($m) });
$r->set_handlers(PerlLogHandler => sub { __PACKAGE__->LogHandler($m) });
$r->set_handlers(PerlCleanupHandler => sub { __PACKAGE__->CleanupHandler($m) });
return __PACKAGE__->InitHandler($m);
}
sub InitHandler {
my $pkg = shift;
my $m = shift;
# ... Setting Nodes ...
# $m->set( nodename => ' ... value ... ' ) unless $m->nodename;
...
return __PACKAGE__->SUPER::InitHandler($m);
}
DESCRIPTION
Base handlers of MPMinus
AUTHOR
Serz Minus (Lepenkov Sergey) http://serzik.ru <minus@mail333.com>
COPYRIGHT
Copyright (C) 1998-2013 D&D Corporation. All Rights Reserved
LICENSE
This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
See LICENSE
file