File Coverage

blib/lib/Mail/LMLM/Types/Ezmlm.pm

Criterion	Covered	Total	%
statement	12	46	26.0
branch	0	2	0.0
condition			n/a
subroutine	4	14	28.5
pod	6	6	100.0
total	22	68	32.3

package Mail::LMLM::Types::Ezmlm;
$Mail::LMLM::Types::Ezmlm::VERSION = '0.6807';
use strict;
use warnings;

use Mail::LMLM::Types::Base;

use vars qw(@ISA);

@ISA = qw(Mail::LMLM::Types::Base);

sub group_form
{
    my $self = shift;

    my $add = shift;

    return ( ( $self->get_group_base() . ( $add ? ( "-" . $add ) : "" ) ),
        $self->get_hostname() );
}

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
{
    my $self = shift;

    return $self->group_form();
}

sub _get_owner_address
{
    my $self = shift;

    return $self->group_form("owner");
}

sub render_something_with_email_addr
{
    my $self = shift;

    my $htmler         = shift;
    my $begin_msg      = shift;
    my $address_method = shift;

    $htmler->para($begin_msg);
    $htmler->indent_inc();
    $htmler->start_para();
    $htmler->email_address( $self->$address_method() );
    $htmler->end_para();
    $htmler->indent_dec();

    return 0;
}

sub render_subscribe
{
    my $self = shift;

    my $htmler = shift;

    return $self->render_something_with_email_addr( $htmler,
        "Send an empty mail message to the following address: ",
        \&_get_subscribe_address );
}

sub render_unsubscribe
{
    my $self = shift;

    my $htmler = shift;

    return $self->render_something_with_email_addr( $htmler,
        "Send an empty mail message to the following address: ",
        \&_get_unsubscribe_address );
}

sub render_post
{
    my $self = shift;

    my $htmler = shift;

    return $self->render_something_with_email_addr( $htmler,
        "Send your messages to the following address: ",
        \&_get_post_address );
}

sub render_owner
{
    my $self = shift;

    my $htmler = shift;

    return $self->render_something_with_email_addr( $htmler,
        "Send messages to the mailing-list owner to the following address: ",
        \&_get_owner_address );
}

1;

__END__