diff options
Diffstat (limited to 't/lib/Test/Sietima.pm')
| -rw-r--r-- | t/lib/Test/Sietima.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/t/lib/Test/Sietima.pm b/t/lib/Test/Sietima.pm index 549d654..115a1e6 100644 --- a/t/lib/Test/Sietima.pm +++ b/t/lib/Test/Sietima.pm @@ -1,7 +1,7 @@ package Test::Sietima; use strict; use warnings; -use 5.020; +use 5.024; use lib 't/lib'; use Import::Into; use Email::Stuffer; @@ -21,7 +21,7 @@ sub import { for my $function (qw(transport make_sietima make_mail deliveries_are test_sending)) { no strict 'refs'; - *{"${target}::${function}"} = __PACKAGE__->can($function); + "${target}::${function}"->** = __PACKAGE__->can($function); } return; } @@ -38,7 +38,7 @@ sub make_sietima { my $class = 'Sietima'; if (my $traits = delete $args{with_traits}) { - $class = $class->with_traits(@{$traits}); + $class = $class->with_traits($traits->@*); } $class->new({ @@ -57,7 +57,7 @@ my $maybe = sub { my $mapit = sub { my ($obj,$method,$arg) = @_; return $obj unless $arg; - for my $k (keys %{$arg}) { + for my $k (keys $arg->%*) { $obj = $obj->$method($k, $arg->{$k}); } return $obj; @@ -81,7 +81,7 @@ sub deliveries_are { my $ctx = context(); my $to = $args{to}; - my @recipients = ref($to) ? @{$to} : $to; + my @recipients = ref($to) ? $to->@* : $to; my @deliveries = transport->deliveries; is( \@deliveries, @@ -131,7 +131,7 @@ sub test_sending { ); $args{from} ||= $sietima->return_path; - $args{to} ||= [ map { $_->address} @{$sietima->subscribers} ]; + $args{to} ||= [ map { $_->address} $sietima->subscribers->@* ]; deliveries_are(%args); $ctx->release; |