lib/Sietima/MailStore.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95

package Sietima::MailStore; 
use Moo::Role;
use Sietima::Policy;
use namespace::clean;
 
# VERSION 
# ABSTRACT: interface for mail stores 
 
=head1 DESCRIPTION
 
This role defines the interface that all mail stores must adhere
to. It does not provide any implementation.
 
=require C<store>
 
  my $id = $ms->store($email_mime_object,@tags);
 
Must persistently store the given email message (as an L<<
C<Email::Simple> >> object or similar), associating it with the gives
tags (which must be strings). Must return a unique identifier for the
stored message. It is acceptable if identical messages are
indistinguishable by the storage.
 
=require C<retrieve_by_id>
 
  my $email_mime_object = $ms->retrieve_by_id($id);
 
Given an identifier returned by L<< /C<store> >>, this method must
return the email message (as an L<< C<Email::Simple> >> or L<<
C<Email::MIME> >> object).
 
If the message has been deleted, or the identifier is not recognised,
this method must return C<undef> in scalar context.
 
=require C<retrieve_ids_by_tags>
 
  my @ids = $ms->retrieve_ids_by_tags(@tags)->@*;
 
Given a list of tags (which must be strings), this method must return
an arrayref containing the identifiers of all (and only) the messages
that were stored associated with (at least) all those tags. The order
of the returned identifiers is not important.
 
If there are no messages associated with the given tags, this method
must return an empty arrayref.
 
For example:
 
 my $id1 = $ms->store($msg1,'t1');
 my $id2 = $ms->store($msg2,'t2');
 my $id3 = $ms->store($msg3,'t1','t2');
 
 $ms->retrieve_ids_by_tags('t1') ==> [ $id3, $id1 ]
 $ms->retrieve_ids_by_tags('t2') ==> [ $id2, $id3 ]
 $ms->retrieve_ids_by_tags('t1','t2') ==> [ $id3 ]
 $ms->retrieve_ids_by_tags('t3') ==> [ ]
 
=require C<retrieve_by_tags>
 
  my @email_mime_objects = $ms->retrieve_by_tags(@tags)->@*;
 
This method is similar to L<< /C<retrieve_ids_by_tags> >>, but it must
return an arrayref of hashrefs. For example:
 
 my $id1 = $ms->store($msg1,'t1');
 my $id2 = $ms->store($msg2,'t2');
 my $id3 = $ms->store($msg3,'t1','t2');
 
 $ms->retrieve_ids_by_tags('t1') ==> [
   { id => $id3, mail => $msg3 },
   { id => $id1, mail => $msg1 },
  ]
 
=require C<remove>
 
  $ms->remove($id);
 
This method must remove the message corresponding to the given
identifier from the persistent storage. Removing a non-existent
message must succeed, and do nothing.
 
=require C<clear>
 
  $ms->clear();
 
This method must remove all messages from the persistent
storage. Clearing an empty store must succeed, and do nothing.
 
=cut
 
requires 'store',
    'retrieve_ids_by_tags','retrieve_by_tags','retrieve_by_id',
    'remove','clear';
 
1;