aboutsummaryrefslogtreecommitdiff
path: root/lib/Sietima/Role/SubscriberOnly.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Sietima/Role/SubscriberOnly.pm')
-rw-r--r--lib/Sietima/Role/SubscriberOnly.pm12
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);