blob: edaa598f533fd7c07aaf3fa626700e648122a375 (
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
|
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;
|