use Mail::Box::Manager; my $mgr = Mail::Box::Manager->new; my $folder = $mgr->open('imap4:Inbox'); my $filter = Mail::Server::IMAP4::Search->new ( ...to be defined... ); my @msgs = $filter->search($folder); if($filter->search($message)) {...}
See SYNOPSIS in Mail::Box::Search
THIS PACKAGES IS NOT IMPLEMENTED YET... (it's waiting for a volunteer)
See DESCRIPTION in Mail::Box::Search