blob: 7602405237be5a98cc481eee1ae2fddb2c754d7d (
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
48
49
50
51
52
53
54
55
56
57
58
59
|
package Sietima::Role::SubjectTag; use Moo::Role; use Sietima::Policy; use Types::Standard qw(Str); use namespace::clean;
has subject_tag => ( is => 'ro', isa => Str, required => 1, );
around munge_mail => sub ($orig,$self,$mail) { my $tag = '['.$self->subject_tag.']'; my $subject = $mail->header_str('Subject'); unless ($subject =~ m{\Q$tag\E}) { $mail->header_str_set( Subject => "$tag $subject", ); } return $self->$orig($mail); }; 1;
|