e0d93d10ef
git-svn-id: https://svn.perl.org/qpsmtpd/branches/v010@30 958fd67b-6ff1-0310-b445-bb7760255be9
15 lines
149 B
Plaintext
15 lines
149 B
Plaintext
|
|
sub new {}
|
|
|
|
sub register {
|
|
my ($self, $qp) = @_;
|
|
|
|
$qp->register_hook("quit", "quit_handler");
|
|
|
|
}
|
|
|
|
sub quit_handler {
|
|
my ($self, $qp) = @_;
|
|
|
|
}
|