NAME
Net::IMAP::Simple::Gmail - Gmail specific support for Net::IMAP::Simple
SYNOPSIS
use Net::IMAP::Simple::Gmail;
my $server = 'imap.gmail.com';
my $imap = Net::IMAP::Simple::Gmail->new($server);
$imap->login($user => $pass);
my $nm = $imap->select('INBOX');
for(my $i = 1; $i <= $nm; $i++) {
# Get labels on message
my $labels = $imap->get_labels($msg);
}
DESCRIPTION
This module is a subclass of Net::IMAP::Simple::SSL that includes specific support for Gmail IMAP Extensions. Besides the gmail specific methods the interface is identical.
METHODS
- get_labels
-
my $labels = $imap->get_labels($msgid); my $labels = $imap->get_labels('1:4');
If $msgid specifies one message (eg $msgid = 1), returns an arrayref of all labels on the message.
If $msgid is a range of messages (eg $msgid eq '1:4'), returns a hashref of all msgids => arrayref of labels.
- add_labels
-
$imap->add_labels($msgid, qw{accounts job});
Adds the labels to the selected message (labels must already exist).
- remove_labels
-
$imap->remove_labels($msgid, qw{job});
Removes the labels from the selected message.
- get_threadids
-
my $threadid = $imap->get_threadids($msgid); my $threadids = $imap->get_threadids('1:10');
If $msgid specifies one message (eg $msgid = 1), returns a string containing the Gmail threadid.
If $msgid is a range of messages (eg $msgid eq '1:4'), returns a hashref of all msgids => threadids;
- run_search
-
my $run_search = $imap->run_search('Perl');
Returns an array of msgids matching the search terms.
SEE ALSO
AUTHOR
James Powell
COPYRIGHT
Copyright (c) 2013 James Powell. All rights reserved.
This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.