diff options
Diffstat (limited to 'lib/Sietima/Role/SubscriberOnly.pm')
| -rw-r--r-- | lib/Sietima/Role/SubscriberOnly.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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 { |