blob: c6a5cdd28567e50b7b163cbb17351019b93c5d00 (
plain)
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
|
package Sietima::Role::AvoidDups; use Moo::Role; use Sietima::Policy; use Email::Address; use namespace::clean;
around subscribers_to_send_to => sub ($orig,$self,$mail) { my @already_receiving = map { Email::Address->parse($_) } $mail->header_str('to'),$mail->header_str('cc'); my %already_receiving = map { $_->address => 1 } @already_receiving; return [ grep { not $already_receiving{$_->address} } $self->$orig($mail)->@*, ]; }; 1;
|