blob: 84d7d9be9d04aaa51345025ab2cc83a1228df281 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
package Sietima::Role::NoMail; use Moo::Role; use Sietima::Policy; use namespace::clean; around subscribers_to_send_to => sub ($orig,$self,$mail) { return [ grep { $_->prefs->{wants_mail} // 1 } $self->$orig($mail)->@*, ]; }; 1;
|