- or download this
sub add_log {
my ($self, $parser, $coderef) = @_;
...
return 1;
}
- or download this
sub find_message {
my ($self, $argref) = @_;
...
return 0;
}
}
- or download this
my $tracer = Mail::Log::Trace::Postfix->new({log_file => 't/data/lo
+g'});
my $object = Mail::Log::Trace::Multiple->new();
...
ok($object->find_message($condition) , 'Mail::Log::Trace::Multiple:
+ Find message from "to" field.');
ok($tracer->find_message_info($condition), 'tracer test.');