aboutsummaryrefslogtreecommitdiff
path: root/lib/Sietima.pm
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2016-06-19 18:30:22 +0100
committerdakkar <dakkar@thenautilus.net>2016-06-19 18:30:22 +0100
commitd3f14711a3e2419f59e93f408e4854366c3997cb (patch)
treec0610256ba94b3a37fb851571848a45d87a194d4 /lib/Sietima.pm
parentDebounce role (diff)
downloadSietima-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.pm6
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,