view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

    Perform the IMAP 'getannotation' command to get the annotation(s)
    for a mailbox.  See imap-annotatemore extension for details.

    Examples:

        my $Result = $IMAP->getannotation('user.joe.blah', '/*' '*') || die "IMAP error: $@";
        $Result = {
          'user.joe.blah' => {
            '/vendor/cmu/cyrus-imapd/size' => {
              'size.shared' => '5',
              'content-type.shared' => 'text/plain',
              'value.shared' => '19261'
            },
            '/vendor/cmu/cyrus-imapd/lastupdate' => {
              'size.shared' => '26',
              'content-type.shared' => 'text/plain',
              'value.shared' => '26-Mar-2004 13:31:56 -0800'
            },
            '/vendor/cmu/cyrus-imapd/partition' => {
              'size.shared' => '7',
              'content-type.shared' => 'text/plain',
              'value.shared' => 'default'
            }
          }
        };

- _getmetadata($FolderName, \[ \\%Options \], @Entries)_

    Perform the IMAP 'getmetadata' command to get the metadata items
    for a mailbox.  See RFC 5464 for details.

lib/Mail/IMAPTalk.pm  view on Meta::CPAN

Perform the IMAP 'getannotation' command to get the annotation(s)
for a mailbox.  See imap-annotatemore extension for details.

Examples:

  my $Result = $IMAP->getannotation('user.joe.blah', '/*' '*') || die "IMAP error: $@";
  $Result = {
    'user.joe.blah' => {
      '/vendor/cmu/cyrus-imapd/size' => {
        'size.shared' => '5',
        'content-type.shared' => 'text/plain',
        'value.shared' => '19261'
      },
      '/vendor/cmu/cyrus-imapd/lastupdate' => {
        'size.shared' => '26',
        'content-type.shared' => 'text/plain',
        'value.shared' => '26-Mar-2004 13:31:56 -0800'
      },
      '/vendor/cmu/cyrus-imapd/partition' => {
        'size.shared' => '7',
        'content-type.shared' => 'text/plain',
        'value.shared' => 'default'
      }
    }
  };

=cut
sub getannotation {
  my $Self = shift;
  $Self->_require_capability('annotatemore') || return undef;
  return $Self->_imap_cmd("getannotation", 0, "annotation", $Self->_fix_folder_name(+shift, Wildcard => 1), { Quote => $_[0] }, { Quote => $_[1] });