diff options
Diffstat (limited to 'lib/Sietima/Role/SubscriberOnly.pm')
| -rw-r--r-- | lib/Sietima/Role/SubscriberOnly.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/Sietima/Role/SubscriberOnly.pm b/lib/Sietima/Role/SubscriberOnly.pm index 07eac1e..f01dadf 100644 --- a/lib/Sietima/Role/SubscriberOnly.pm +++ b/lib/Sietima/Role/SubscriberOnly.pm @@ -1,6 +1,6 @@ package Sietima::Role::SubscriberOnly; -use 5.024; use Moo::Role; +use Sietima::Policy; use Email::Address; use List::AllUtils qw(any); use namespace::clean; @@ -9,9 +9,7 @@ requires 'munge_mail_from_non_subscriber'; our $let_it_pass=0; -around munge_mail => sub { - my ($orig,$self,$mail) = @_; - +around munge_mail => sub ($orig,$self,$mail) { my ($from) = Email::Address->parse( $mail->header_str('from') ); if ( $let_it_pass or any { $_->match($from) } $self->subscribers->@* ) { |