robmueller / mail-imaptalk Goto Github PK

a getannotation "" "/vendor/EXAMPLE/*example.com" ("value.priv" "value.shared")
* ANNOTATION "" "/vendor/EXAMPLE/uc.example.com" ("value.priv" "maildata40")
* ANNOTATION "" "/vendor/EXAMPLE/example.com" ("value.priv" NIL "value.shared" NIL)
* ANNOTATION "" "/vendor/EXAMPLE/uc.example.com" ("value.shared" NIL)
a OK Completed

use Data::Dumper;
$Data::Dumper::Terse = 1;
$read=$IMAP->getannotation( "", "/vendor/EXAMPLE/*example.com", "value.*" );
print Dumper($read);

{
  '' => {
          '/vendor/EXAMPLE/example.com' => {
                                              'value.shared' => undef,
                                              'value.priv' => undef
                                            },
          '/vendor/EXAMPLE/uc.example.com' => {
                                                 'value.shared' => undef
                                               }
        }
}

{
  '' => {
          '/vendor/EXAMPLE/example.com' => {
                                              'value.priv' => undef
                                            },
          '/vendor/EXAMPLE/uc.example.com' => {
                                                 'value.priv' => 'maildata40'
                                               }
        }
}