Use sub signatures!

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

1 files changed, 8 insertions, 18 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};