diff options
Diffstat (limited to 'lib/Sietima/Role/SubscriberOnly.pm')
-rw-r--r-- | lib/Sietima/Role/SubscriberOnly.pm | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lib/Sietima/Role/SubscriberOnly.pm b/lib/Sietima/Role/SubscriberOnly.pm index d2edf6b..6524d39 100644 --- a/lib/Sietima/Role/SubscriberOnly.pm +++ b/lib/Sietima/Role/SubscriberOnly.pm @@ -29,9 +29,7 @@ with messages from non-subscribers. See L<< C<Sietima::Role::SubscriberOnly::Drop> >> and L<< C<Sietima::Role::SubscriberOnly::Moderate> >> for useable roles. -=head1 REQUIRED METHODS - -=head2 C<munge_mail_from_non_subscriber> +=require C<munge_mail_from_non_subscriber> sub munge_mail_from_non_subscriber($self,$mail) { ... } @@ -48,9 +46,7 @@ requires 'munge_mail_from_non_subscriber'; our $let_it_pass=0; ## no critic(ProhibitPackageVars) -=head1 MODIFIED METHODS - -=head2 C<munge_mail> +=modif C<munge_mail> If the incoming email's C<From:> header contains an address that L<matches|Sietima::Subscriber/match> any of the subscribers, the email @@ -70,9 +66,7 @@ around munge_mail => sub ($orig,$self,$mail) { } }; -=head1 METHODS - -=head2 C<ignoring_subscriberonly> +=method C<ignoring_subscriberonly> $sietima->ignoring_subscriberonly(sub($s) { $s->handle_mail($mail); |