use Data::Dumper;


sub hook_rcpt {
    my ($self, $transaction, $recipient) = @_;
    $self->log(LOGINFO, "in address_notes_test for recipient $recipient\n");
    my $d = Data::Dumper->new([$recipient]);
    $d->Terse(1);
    $d->Indent(0);
    $self->log(LOGINFO, "$recipient: " .  $d->Dump);
    for (sort keys %{ $recipient->{_notes} }) {
        my $d = Data::Dumper->new([$recipient->notes($_)]);
        $d->Terse(1);
        $d->Indent(0);
	$self->log(LOGINFO, "$recipient has note $_ => " .  $d->Dump);
    }
    return DECLINED;
}
# vim: sw=4 tw=0 expandtab