Mail::SpamAssassin::PerMsgLearner − per−message status (spam or not−spam)
my $spamtest =
new Mail::SpamAssassin ({
'rules_filename' => '/etc/spamassassin.rules',
'userprefs_filename' =>
$ENV{HOME}.'/.spamassassin/user_prefs'
});
my $mail = $spamtest−>parse();
my $status =
$spamtest−>learn($mail,$id,$isspam,$forget);
my $didlearn = $status−>did_learn();
$status−>finish();
The Mail::SpamAssassin learn() method returns an object of this class. This object encapsulates all the per-message state for the learning process.
$didlearn = $status−>did_learn()
Returns 1 if the message was learned from or forgotten successfully.
$status−>finish()
Finish with the object.
Mail::SpamAssassin(3) spamassassin(1)