NAME¶
Mail::Milter::Wrapper - Perl extension for wrappering milter objects
SYNOPSIS¶
use Mail::Milter::Wrapper;
my $milter = ...;
my $wrapper = new Mail::Milter::Wrapper($milter, \&foo);
use Sendmail::Milter;
...
Sendmail::Milter::register('foo', $wrapper, SMFI_CURR_ACTS);
DESCRIPTION¶
Mail::Milter::Wrapper wraps another milter, allowing for interception of the
passed arguments and/or return code of the contained milter.
METHODS¶
- new(MILTER, CODEREF[, CALLBACK ...])
- Creates a Mail::Milter::Wrapper object.
MILTER is the milter to wrap, which may be a plain hash reference or an
instance of a hashref object such as "Mail::Milter::Object".
CODEREF is the wrapper subroutine. CALLBACKs, if specified, are named
callbacks which are needed by the wrapper, even if the contained milter
does not use them.
The wrapper subroutine will be called with the following arguments, in this
order:
* reference to the wrapper
* name of callback
* subroutine reference to call into the wrapped milter
* arguments for the callback (>= 0)
This subroutine should ALWAYS pass the "close" callback through to
the contained milter. Failure to do so may corrupt the contained milter's
state information and cause memory leaks.
As an example, a simple subroutine which just passes the callback through
might be written as:
sub callback_wrapper {
shift; # don't need $this
my $cbname = shift;
my $callback_sub = shift;
&$callback_sub(@_);
}
AUTHOR¶
Todd Vierling, <tv@duh.org> <tv@pobox.com>
SEE ALSO¶
Mail::Milter, Sendmail::Milter