File Coverage

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

Criterion	Covered	Total	%
statement	12	26	46.1
branch	0	6	0.0
condition			n/a
subroutine	4	8	50.0
pod	4	4	100.0
total	20	44	45.4

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

use Mail::LMLM::Types::Ezmlm;

use vars qw(@ISA);

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

sub initialize
{
    my $self = shift;

    $self->SUPER::initialize(@_);

    if ( !exists( $self->{'hostname'} ) )
    {
        $self->{'hostname'} = "yahoogroups.com";
    }
}

sub get_homepage_hostname
{
    my $self = shift;

    return "groups.yahoo.com";
}

sub get_homepage
{
    my $self = shift;

    if ( exists( $self->{'homepage'} ) )
    {
        return $self->{'homepage'};
    }
    else
    {
        return
              "http://"
            . $self->get_homepage_hostname()
            . "/group/"
            . $self->get_group_base() . "/";
    }
}

sub get_online_archive
{
    my $self = shift;

    if ( exists( $self->{'online_archive'} ) )
    {
        return $self->{'online_archive'};
    }
    else
    {
        return $self->get_homepage() . "messages/";
    }
}

1;

__END__