add notes method to the Connection object. (used in the dnsbl plugin)

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@68 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-09-10 13:42:44 +00:00
parent fcbf3b0ad4
commit 1cea2f9449

View File

@ -51,5 +51,11 @@ sub hello_host {
$self->{_hello_host}; $self->{_hello_host};
} }
sub notes {
my $self = shift;
my $key = shift;
@_ and $self->{_notes}->{$key} = shift;
$self->{_notes}->{$key};
}
1; 1;