1 files changed, 4 insertions, 12 deletions
diff --git a/t/lib/Test/Sietima/MailStore.pm b/t/lib/Test/Sietima/MailStore.pm
index ff4064c..60054c3 100644
--- a/t/lib/Test/Sietima/MailStore.pm
+++ b/t/lib/Test/Sietima/MailStore.pm
@@ -1,8 +1,6 @@
 package Test::Sietima::MailStore;
-use strict;
-use warnings;
-use 5.024;
 use Moo;
+use Sietima::Policy;
 use List::AllUtils qw(all);
 use namespace::clean;
 
@@ -15,9 +13,7 @@ has _mails => (
 
 sub clear { shift->_mails([]) }
 
-sub store {
-    my ($self,$mail,@tags) = @_;
-
+sub store ($self,$mail,@tags) {
     my $id = time();
     push $self->_mails->@*, {
         id => $id,
@@ -27,9 +23,7 @@ sub store {
     return $id;
 }
 
-sub retrieve_by_tags {
-    my ($self,@tags) = @_;
-
+sub retrieve_by_tags ($self,@tags){
     my @ret;
     for my $m ($self->_mails->@*) {
         next unless all { $m->{tags}{$_} } @tags;
@@ -42,9 +36,7 @@ sub retrieve_by_tags {
     return \@ret;
 }
 
-sub retrieve_by_id {
-    my ($self,$id) = @_;
-
+sub retrieve_by_id ($self,$id) {
     for my $m ($self->_mails->@*) {
         next unless $m->{id} eq $id;
         return Email::MIME->new($m->{mail});