1 files changed, 2 insertions, 4 deletions
diff --git a/lib/Sietima/Role/SubjectTag.pm b/lib/Sietima/Role/SubjectTag.pm
index 1daa662..edaa598 100644
--- a/lib/Sietima/Role/SubjectTag.pm
+++ b/lib/Sietima/Role/SubjectTag.pm
@@ -1,6 +1,6 @@
 package Sietima::Role::SubjectTag;
-use 5.024;
 use Moo::Role;
+use Sietima::Policy;
 use Types::Standard qw(Str);
 use namespace::clean;
 
@@ -10,9 +10,7 @@ has subject_tag => (
     required => 1,
 );
 
-around munge_mail => sub {
-    my ($orig,$self,$mail) = @_;
-
+around munge_mail => sub ($orig,$self,$mail) {
     my $tag = '['.$self->subject_tag.']';
     my $subject = $mail->header_str('Subject');
     unless ($subject =~ m{\Q$tag\E}) {