Use sub signatures!

also:
* add Sietima::Policy to enable stuff everywhere
* use Test::Sietima everywhere (which imposes Sietima::Policy)

2 files changed, 12 insertions, 30 deletions

diff --git a/t/lib/Test/Sietima.pm b/t/lib/Test/Sietima.pm
index 31fb809..7b2a6ae 100644
--- a/t/lib/Test/Sietima.pm
+++ b/t/lib/Test/Sietima.pm
@@ -1,7 +1,4 @@
 package Test::Sietima;
-use strict;
-use warnings;
-use 5.024;
 use lib 't/lib';
 use Import::Into;
 use Email::Stuffer;
@@ -10,6 +7,7 @@ use Data::Printer;
 use Sietima;
 use Test2::Bundle::Extended;
 use Test2::API qw(context);
+use Sietima::Policy;
 use namespace::clean;
 
 sub import {
@@ -17,6 +15,7 @@ sub import {
     Test2::Bundle::Extended->import::into($target);
     Test2::Plugin::DieOnFail->import::into($target);
     Data::Printer->import::into($target);
+    Sietima::Policy->import::into($target);
 
     for my $function (qw(transport make_sietima make_mail
                          deliveries_are test_sending)) {
@@ -33,9 +32,7 @@ sub transport {
     return $transport;
 }
 
-sub make_sietima {
-    my (%args) = @_;
-
+sub make_sietima (%args) {
     my $class = 'Sietima';
     if (my $traits = delete $args{with_traits}) {
         $class = $class->with_traits($traits->@*);
@@ -48,14 +45,12 @@ sub make_sietima {
     });
 }
 
-my $maybe = sub {
-    my ($obj,$method,$arg) = @_;
+my $maybe = sub ($obj,$method,$arg) {
     return $obj unless $arg;
     return $obj->$method($arg);
 };
 
-my $mapit = sub {
-    my ($obj,$method,$arg) = @_;
+my $mapit = sub ($obj,$method,$arg) {
     return $obj unless $arg;
     for my $k (keys $arg->%*) {
         $obj = $obj->$method($k, $arg->{$k});
@@ -63,9 +58,7 @@ my $mapit = sub {
     return $obj;
 };
 
-sub make_mail {
-    my (%args) = @_;
-
+sub make_mail (%args) {
     Email::Stuffer
           ->from($args{from}||'someone@users.example.com')
           ->to($args{to}||$return_path)
@@ -76,9 +69,7 @@ sub make_mail {
           ->email;
 }
 
-sub deliveries_are {
-    my (%args) = @_;
-
+sub deliveries_are (%args) {
     my $ctx = context();
 
     my $checker;
@@ -136,8 +127,7 @@ sub deliveries_are {
     $ctx->release;
 }
 
-sub test_sending {
-    my (%args) = @_;
+sub test_sending (%args) {
     my $ctx = context();
 
     my $sietima = delete $args{sietima};
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});