bump perl requirement to 5.24

I can haz postderef!

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;