Commits

shl...@52c325ad-5fd0-0310-8a0f-c43feede02cc  committed 95d12e6

Full POD coverage.

  • Participants
  • Parent commits 1839cf4

Comments (0)

Files changed (5)

File modules/Mail-LMLM/lib/Mail/LMLM/Types/Egroups.pm

         return $self->get_homepage() . "messages/";
     }
 }
+
+
+__END__
+
+=head1 NAME
+
+Mail::LMLM::Types::Egroups - mailing list type for YahooGroups.
+
+=head1 METHODS
+
+=head2 get_homepage_hostname
+
+Internal method.
+
+=head2 initialize
+
+Over-rides L<Mail::LMLM::Types::Base>'s method.
+
+=head2 get_homepage
+
+Calculates the homepage of the group.
+
+=head2 get_online_archive
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Ezmlm>.
+
+=head1 SEE ALSO
+
+L<Mail::LMLM::Types::Ezmlm>
+
+=head1 AUTHOR
+
+Shlomi Fish, L<http://www.shlomifish.org/>.
+

File modules/Mail-LMLM/lib/Mail/LMLM/Types/Ezmlm.pm

 
 @ISA=qw(Mail::LMLM::Types::Base);
 
-sub parse_args
-{
-    my $self = shift;
-
-    my $args = shift;
-
-    $args = $self->SUPER::parse_args($args);
-    
-    return $args;
-}
-
 sub group_form
 {
     my $self = shift;
         );
 }
 
-sub get_subscribe_address
+sub _get_subscribe_address
 {
     my $self = shift;
     
     return $self->group_form("subscribe");
 }
 
-sub get_unsubscribe_address
+sub _get_unsubscribe_address
 {
     my $self = shift;
 
     return $self->group_form("unsubscribe");
 }
 
-sub get_post_address
+sub _get_post_address
 {
     my $self = shift;
 
     return $self->group_form();
 }
 
-sub get_owner_address
+sub _get_owner_address
 {
     my $self = shift;
 
     return $self->render_something_with_email_addr(
         $htmler,
         "Send an empty mail message to the following address: ",
-        \&get_subscribe_address
+        \&_get_subscribe_address
         );
 }
 
     return $self->render_something_with_email_addr(
         $htmler,
         "Send an empty mail message to the following address: ",
-        \&get_unsubscribe_address
+        \&_get_unsubscribe_address
         );
 }
 
     return $self->render_something_with_email_addr(
         $htmler,
         "Send your messages to the following address: ",
-        \&get_post_address
+        \&_get_post_address
         );
 }
 
     return $self->render_something_with_email_addr(
         $htmler,
         "Send messages to the mailing-list owner to the following address: ",
-        \&get_owner_address
+        \&_get_owner_address
         );
 }
 
 1;
+
+
+__END__
+
+=head1 NAME
+
+Mail::LMLM::Types::Ezmlm - mailing list type for ezmlm-based mailing lists.
+
+=head1 METHODS
+
+=head2 group_form
+
+Creates a group-based form (like C<mygroup-subscribe@myhost.tld> or
+C<mygroup-owner@myhost.tld>) for the mailing list.
+
+=head2 render_something_with_email_addr
+
+Internal method.
+
+=head2 render_subscribe
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+
+=head2 render_unsubscribe
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+
+=head2 render_post
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+ 
+=head2 render_owner
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+
+=head1 SEE ALSO
+
+L<Mail::LMLM::Types::Base>
+
+=head1 AUTHOR
+
+Shlomi Fish, L<http://www.shlomifish.org/>.
+

File modules/Mail-LMLM/lib/Mail/LMLM/Types/Listar.pm

     return $self->group_form("request");
 }
 
-sub get_post_address
+sub _get_post_address
 {
     my $self = shift;
 
     return $self->group_form();
 }
 
-sub get_owner_address
+sub _get_owner_address
 {
     my $self = shift;
 
     return $self->render_something_with_email_addr(
         $htmler,
         "Send your messages to the following address: ",
-        \&get_post_address
+        \&_get_post_address
         );
 }
 
     return $self->render_something_with_email_addr(
         $htmler,
         "Send messages to the mailing-list owner to the following address: ",
-        \&get_owner_address
+        \&_get_owner_address
         );
 }
 
 1;
+
+__END__
+
+=head1 NAME
+
+Mail::LMLM::Types::Listar - mailing list type for Listar-based mailing
+lists.
+
+=head1 METHODS
+
+=head2 parse_args
+
+Internal method, over-rides the L<Mail::LMLM::Types::Base>.
+
+=head2 get_request_address
+
+Calculates the request address
+
+=head2 group_form
+
+Calculates the group form.
+
+=head2 render_sub_or_unsub
+
+Internal method.
+
+=head2 render_subscribe
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+
+=head2 render_unsubscribe
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+
+=head2 render_post
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+ 
+=head2 render_owner
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+
+=head2 render_maint_url
+
+Render a maintenance URL. Internal method.
+
+
+=head1 SEE ALSO
+
+L<Mail::LMLM::Types::Base>
+
+=head1 AUTHOR
+
+Shlomi Fish, L<http://www.shlomifish.org/>.
+

File modules/Mail-LMLM/lib/Mail/LMLM/Types/Mailman.pm

         );
 }
 
-sub get_post_address
+sub _get_post_address
 {
     my $self = shift;
 
     return $self->group_form();
 }
 
-sub get_owner_address
+sub _get_owner_address
 {
     my $self = shift;
 
     return $self->render_something_with_email_addr(
         $htmler,
         "Send your messages to the following address: ",
-        \&get_post_address
+        \&_get_post_address
         );
 }
 
     return $self->render_something_with_email_addr(
         $htmler,
         "Send messages to the mailing-list owner to the following address: ",
-        \&get_owner_address
+        \&_get_owner_address
         );
 }
 
 1;
+
+__END__
+
+=head1 NAME
+
+Mail::LMLM::Types::Mailman - mailing list type for Mailman-based mailing
+lists.
+
+=head1 METHODS
+
+=head2 parse_args
+
+Internal method, over-rides the L<Mail::LMLM::Types::Base>.
+
+=head2 get_maintenance_url
+
+Calculates the URL for the Mailman admin web-interface.
+
+=head2 group_form
+
+Calculates the group form.
+
+=head2 render_subscribe
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+
+=head2 render_unsubscribe
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+
+=head2 render_post
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+ 
+=head2 render_owner
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+
+=head2 render_maint_url
+
+Render a maintenance URL. Internal method.
+
+
+=head1 SEE ALSO
+
+L<Mail::LMLM::Types::Base>
+
+=head1 AUTHOR
+
+Shlomi Fish, L<http://www.shlomifish.org/>.
+

File modules/Mail-LMLM/lib/Mail/LMLM/Types/Majordomo.pm

     return \@left;
 }
 
-sub get_subscribe_address
-{
-    my $self = shift;
-    
-    return $self->group_form("subscribe");
-}
-
-sub get_unsubscribe_address
-{
-    my $self = shift;
-
-    return $self->group_form("unsubscribe");
-}
-
-sub get_post_address
+sub _get_post_address
 {
     my $self = shift;
 
     return ($self->get_group_base(), $self->get_hostname());
 }
 
-sub get_owner_address
+sub _get_owner_address
 {
     my $self = shift;
 
     return $self->render_something_with_email_addr(
         $htmler,
         "Send your messages to the following address: ",
-        \&get_post_address
+        \&_get_post_address
         );
 }
 
     return $self->render_something_with_email_addr(
         $htmler,
         "Send messages to the mailing-list owner to the following address: ",
-        \&get_owner_address
+        \&_get_owner_address
         );
 }
 
 1;
+
+__END__
+
+=head1 NAME
+
+Mail::LMLM::Types::Majordomo - mailing list type for Majordomo-based mailing
+lists.
+
+=head1 METHODS
+
+=head2 render_mail_management
+
+Internal method.
+
+=head2 parse_args
+
+Internal method, over-rides the L<Mail::LMLM::Types::Base>.
+
+=head2 render_subscribe
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+
+=head2 render_unsubscribe
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+
+=head2 render_post
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+ 
+=head2 render_owner
+
+Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
+
+=head1 SEE ALSO
+
+L<Mail::LMLM::Types::Base>
+
+=head1 AUTHOR
+
+Shlomi Fish, L<http://www.shlomifish.org/>.
+