bump perl requirement to 5.24

I can haz postderef!

13 files changed, 22 insertions, 30 deletions

diff --git a/lib/Sietima.pm b/lib/Sietima.pm
index 704d4f8..48b90c5 100644
--- a/lib/Sietima.pm
+++ b/lib/Sietima.pm
@@ -1,5 +1,5 @@
 package Sietima;
-use 5.020;
+use 5.024;
 use Moo;
 use Types::Standard qw(ArrayRef Object FileHandle Maybe);
 use Type::Params qw(compile);
@@ -70,7 +70,7 @@ sub munge_mail {
         from => $self->return_path,
         to => [
             map { $_->address }
-                @{$self->subscribers_to_send_to($incoming_mail)},
+                $self->subscribers_to_send_to($incoming_mail)->@*
               ],
     });
 }
@@ -80,7 +80,7 @@ sub send_message {
     my ($self,$outgoing_message) = $check->(@_);
 
     my $envelope = $outgoing_message->envelope;
-    if ($envelope->{to} && @{$envelope->{to}}) {
+    if ($envelope->{to} && $envelope->{to}->@*) {
         $self->transport->send(
             $outgoing_message->mail,
             $envelope,
diff --git a/lib/Sietima/MailStore.pm b/lib/Sietima/MailStore.pm
index 2d2b1a7..cef6864 100644
--- a/lib/Sietima/MailStore.pm
+++ b/lib/Sietima/MailStore.pm
@@ -1,7 +1,5 @@
 package Sietima::MailStore;
-use strict;
-use warnings;
-use 5.020;
+use 5.024;
 use Moo::Role;
 
 requires 'store','retrieve_by_tags','retrieve_by_id';
diff --git a/lib/Sietima/Message.pm b/lib/Sietima/Message.pm
index a864c02..89e2fa5 100644
--- a/lib/Sietima/Message.pm
+++ b/lib/Sietima/Message.pm
@@ -1,5 +1,5 @@
 package Sietima::Message;
-use 5.020;
+use 5.024;
 use Moo;
 use Types::Standard qw(ArrayRef Object);
 use Sietima::Types qw(Address AddressFromStr EmailMIME);
@@ -45,7 +45,7 @@ sub clone {
 
     return ref($self)->new({
         from => $args->{from} || _clone_address($self->from),
-        to => $args->{to} || [ map { _clone_address($_) } @{$self->to} ],
+        to => $args->{to} || [ map { _clone_address($_) } $self->to->@* ],
         mail => $args->{mail} || _clone_mail($self->mail),
     });
 }
diff --git a/lib/Sietima/Role/AvoidDups.pm b/lib/Sietima/Role/AvoidDups.pm
index da1af00..e0d09c9 100644
--- a/lib/Sietima/Role/AvoidDups.pm
+++ b/lib/Sietima/Role/AvoidDups.pm
@@ -1,5 +1,5 @@
 package Sietima::Role::AvoidDups;
-use 5.020;
+use 5.024;
 use Moo::Role;
 use Email::Address;
 use namespace::clean;
@@ -19,7 +19,7 @@ around subscribers_to_send_to => sub {
         grep {
             not $already_receiving{$_->address}
         }
-            @{$self->$orig($mail)},
+            $self->$orig($mail)->@*,
     ];
 };
 
diff --git a/lib/Sietima/Role/Debounce.pm b/lib/Sietima/Role/Debounce.pm
index 490dfc8..59bb1f2 100644
--- a/lib/Sietima/Role/Debounce.pm
+++ b/lib/Sietima/Role/Debounce.pm
@@ -1,6 +1,7 @@
 package Sietima::Role::Debounce;
-use 5.020;
+use 5.024;
 use Moo::Role;
+use namespace::clean;
 
 my $been_there = 'X-Been-There';
 
diff --git a/lib/Sietima/Role/NoMail.pm b/lib/Sietima/Role/NoMail.pm
index a0753b9..c327e46 100644
--- a/lib/Sietima/Role/NoMail.pm
+++ b/lib/Sietima/Role/NoMail.pm
@@ -1,14 +1,14 @@
 package Sietima::Role::NoMail;
-use 5.020;
+use 5.024;
 use Moo::Role;
 use namespace::clean;
 
 around subscribers_to_send_to => sub {
-    my ($orig,$self,@etc) = @_;
+    my ($orig,$self,$mail) = @_;
 
     return [
         grep { $_->prefs->{wants_mail} // 1 }
-            @{$self->$orig(@etc)},
+            $self->$orig($mail)->@*,
     ];
 };
 
diff --git a/lib/Sietima/Role/SubscriberOnly.pm b/lib/Sietima/Role/SubscriberOnly.pm
index 644f2ef..07eac1e 100644
--- a/lib/Sietima/Role/SubscriberOnly.pm
+++ b/lib/Sietima/Role/SubscriberOnly.pm
@@ -1,4 +1,5 @@
 package Sietima::Role::SubscriberOnly;
+use 5.024;
 use Moo::Role;
 use Email::Address;
 use List::AllUtils qw(any);
@@ -13,7 +14,7 @@ around munge_mail => sub {
 
     my ($from) = Email::Address->parse( $mail->header_str('from') );
     if ( $let_it_pass or
-             any { $_->match($from) } @{$self->subscribers} ) {
+             any { $_->match($from) } $self->subscribers->@* ) {
         $self->$orig($mail);
     }
     else {
diff --git a/lib/Sietima/Role/SubscriberOnly/Drop.pm b/lib/Sietima/Role/SubscriberOnly/Drop.pm
index 8db062f..c511c9b 100644
--- a/lib/Sietima/Role/SubscriberOnly/Drop.pm
+++ b/lib/Sietima/Role/SubscriberOnly/Drop.pm
@@ -1,7 +1,5 @@
 package Sietima::Role::SubscriberOnly::Drop;
-use strict;
-use warnings;
-use 5.020;
+use 5.024;
 use Moo::Role;
 use namespace::clean;
 
diff --git a/lib/Sietima/Role/SubscriberOnly/Moderate.pm b/lib/Sietima/Role/SubscriberOnly/Moderate.pm
index 107a843..912fb49 100644
--- a/lib/Sietima/Role/SubscriberOnly/Moderate.pm
+++ b/lib/Sietima/Role/SubscriberOnly/Moderate.pm
@@ -1,7 +1,5 @@
 package Sietima::Role::SubscriberOnly::Moderate;
-use strict;
-use warnings;
-use 5.020;
+use 5.024;
 use Moo::Role;
 use Email::Stuffer;
 use Email::MIME;
diff --git a/lib/Sietima/Role/WithAdmin.pm b/lib/Sietima/Role/WithAdmin.pm
index 08bf0d2..da0f05a 100644
--- a/lib/Sietima/Role/WithAdmin.pm
+++ b/lib/Sietima/Role/WithAdmin.pm
@@ -1,7 +1,5 @@
 package Sietima::Role::WithAdmin;
-use strict;
-use warnings;
-use 5.020;
+use 5.024;
 use Moo::Role;
 use Sietima::Types qw(Address AddressFromStr);
 use namespace::clean;
diff --git a/lib/Sietima/Role/WithMailStore.pm b/lib/Sietima/Role/WithMailStore.pm
index abee4e2..806d273 100644
--- a/lib/Sietima/Role/WithMailStore.pm
+++ b/lib/Sietima/Role/WithMailStore.pm
@@ -1,7 +1,5 @@
 package Sietima::Role::WithMailStore;
-use strict;
-use warnings;
-use 5.020;
+use 5.024;
 use Moo::Role;
 use Sietima::Types qw(MailStore);
 use namespace::clean;
diff --git a/lib/Sietima/Subscriber.pm b/lib/Sietima/Subscriber.pm
index c223343..79a26fb 100644
--- a/lib/Sietima/Subscriber.pm
+++ b/lib/Sietima/Subscriber.pm
@@ -1,5 +1,5 @@
 package Sietima::Subscriber;
-use 5.020;
+use 5.024;
 use Moo;
 use Types::Standard qw(ArrayRef HashRef Object);
 use Type::Params qw(compile);
@@ -39,7 +39,7 @@ sub match {
     my ($self,$addr) = $check->(@_);
 
     return any { $addr->address eq $_->address }
-        $self->raw_address, @{$self->aliases};
+        $self->raw_address, $self->aliases->@*;
 }
 
 1;
diff --git a/lib/Sietima/Types.pm b/lib/Sietima/Types.pm
index 00f0883..f8b5faf 100644
--- a/lib/Sietima/Types.pm
+++ b/lib/Sietima/Types.pm
@@ -1,5 +1,5 @@
 package Sietima::Types;
-use 5.020;
+use 5.024;
 use strict;
 use warnings;
 use Type::Utils -all;