use more Pod::Weaver

1 files changed, 6 insertions, 10 deletions

diff --git a/lib/Sietima/Role/SubscriberOnly/Moderate.pm b/lib/Sietima/Role/SubscriberOnly/Moderate.pm
index 13bc541..c4d62c9 100644
--- a/lib/Sietima/Role/SubscriberOnly/Moderate.pm
+++ b/lib/Sietima/Role/SubscriberOnly/Moderate.pm
@@ -38,9 +38,7 @@ with 'Sietima::Role::SubscriberOnly',
     'Sietima::Role::WithMailStore',
     'Sietima::Role::WithOwner';
 
-=head1 METHODS
-
-=head2 C<munge_mail_from_non_subscriber>
+=method C<munge_mail_from_non_subscriber>
 
 L<Stores|Sietima::MailStore/store> the email with the C<moderation>
 tag, and forwards it to the L<list
@@ -69,7 +67,7 @@ sub munge_mail_from_non_subscriber ($self,$mail) {
     return;
 }
 
-=head2 C<resume>
+=method C<resume>
 
   $sietima->resume($mail_id);
 
@@ -89,7 +87,7 @@ sub resume ($self,$mail_id) {
     $self->mail_store->remove($mail_id);
 }
 
-=head2 C<drop>
+=method C<drop>
 
   $sietima->drop($mail_id);
 
@@ -102,7 +100,7 @@ sub drop ($self,$mail_id) {
     $self->mail_store->remove($mail_id);
 }
 
-=head2 C<list_mails_in_moderation_queue>
+=method C<list_mails_in_moderation_queue>
 
   $sietima->list_mails_in_moderation_queue($sietima_runner);
 
@@ -129,7 +127,7 @@ sub list_mails_in_moderation_queue ($self,$runner,@) {
     }
 }
 
-=head2 C<show_mail_from_moderation_queue>
+=method C<show_mail_from_moderation_queue>
 
   $sietima->show_mail_from_moderation_queue($sietima_runner);
 
@@ -149,9 +147,7 @@ sub show_mail_from_moderation_queue ($self,$runner,@) {
     $runner->out($mail->as_string =~ s{\r\n}{\n}gr);
 }
 
-=head1 MODIFIED METHODS
-
-=head2 C<command_line_spec>
+=modif C<command_line_spec>
 
 This method adds the following sub-commands for the command line: