Email::Delete - Delete Messages from Folders
version 2.002
use Email::Delete qw[delete_message]; my $message_id = shift @ARGV; delete_message from => $ENV{MAIL}, matching => sub { my $message = shift; $message->header('Message-ID') =~ $message_id; };
This software will delete messages from a given folder if the test returns true.
delete_message from => 'folder_name', with => 'My::Delete::Package', matching => sub { return_true_for_delete() };
from is a required parameter, a string containing the folder name to delete from. By default Email::FolderType is used to determine what package to use when deleting a message. To override the default, specify the with parameter. Your package's delete_message function will be called with the same arguments that delete_message from Email::Delete is called with.
from
Email::FolderType
with
delete_message
matching is a required argument. Its value is a code reference. If the anonymouse subroutine returns a true value, the current message is deleted. Each message is passed to the matching test in turn. The first and only argument to matching is an Email::Simple object representing the message.
matching
Email::Simple
If you should ever want to stop processing a mailbox, just call die from your code reference. A proper deleting package will not delete mail until all the messages have been scanned. So if you throw an exception, your mail will be preserved and scanning will be aborted.
die
Email::Simple, Email::Folder, Email::LocalDelivery, perl.
Casey West, <casey@geeknest.com>.
Copyright (c) 2004 Casey West. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Email::Delete, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Email::Delete
CPAN shell
perl -MCPAN -e shell install Email::Delete
For more information on module installation, please visit the detailed CPAN module installation guide.