diff options
Diffstat (limited to 'lib/Sietima/Role/SubscriberOnly/Moderate.pm')
-rw-r--r-- | lib/Sietima/Role/SubscriberOnly/Moderate.pm | 16 |
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: |