diff options
Diffstat (limited to 'lib/Sietima/Role/SubscriberOnly.pm')
| -rw-r--r-- | lib/Sietima/Role/SubscriberOnly.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Sietima/Role/SubscriberOnly.pm b/lib/Sietima/Role/SubscriberOnly.pm index 4dcb66c..98c02a6 100644 --- a/lib/Sietima/Role/SubscriberOnly.pm +++ b/lib/Sietima/Role/SubscriberOnly.pm @@ -6,13 +6,16 @@ use namespace::clean; requires 'munge_mail_from_non_subscriber'; +our $let_it_pass=0; + around munge_mail => sub { my ($orig,$self,$mail) = @_; my $from = (Email::Address->parse( $mail->header_str('from'), ))[0]->address; - if ( any { $_->address eq $from } @{$self->subscribers} ) { + if ( $let_it_pass or + any { $_->address eq $from } @{$self->subscribers} ) { $self->$orig($mail); } else { |