18 lines
185 B
Perl
18 lines
185 B
Perl
|
package Qpsmtpd::Plugin;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
sub new {
|
||
|
|
my $proto = shift;
|
||
|
|
my $class = ref($proto) || $proto;
|
||
|
|
bless ({}, $class);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
sub register_hook {
|
||
|
|
warn "REGISTER HOOK!";
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
1;
|