diff options
author | dakkar <dakkar@thenautilus.net> | 2016-06-19 18:30:22 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2016-06-19 18:30:22 +0100 |
commit | d3f14711a3e2419f59e93f408e4854366c3997cb (patch) | |
tree | c0610256ba94b3a37fb851571848a45d87a194d4 /lib/Sietima.pm | |
parent | Debounce role (diff) | |
download | Sietima-d3f14711a3e2419f59e93f408e4854366c3997cb.tar.gz Sietima-d3f14711a3e2419f59e93f408e4854366c3997cb.tar.bz2 Sietima-d3f14711a3e2419f59e93f408e4854366c3997cb.zip |
bump perl requirement to 5.24
I can haz postderef!
Diffstat (limited to 'lib/Sietima.pm')
-rw-r--r-- | lib/Sietima.pm | 6 |
1 files changed, 3 insertions, 3 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, |