File Coverage

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

Criterion	Covered	Total	%
statement	12	43	27.9
branch	0	10	0.0
condition	0	3	0.0
subroutine	4	11	36.3
pod	5	5	100.0
total	21	72	29.1

package Mail::LMLM::Types::GoogleGroups;
$Mail::LMLM::Types::GoogleGroups::VERSION = '0.6806';
use strict;
use warnings;

use Mail::LMLM::Types::Mailman;

use vars qw(@ISA);

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

sub parse_args
{
    my $self = shift;

    my $args = shift;

    $args = $self->SUPER::parse_args($args);

    my ( @left, $key, $value );

    while ( scalar(@$args) )
    {
        $key   = shift(@$args);
        $value = shift(@$args);

        if ( $key =~ /^-?(maintenance[-_]url)$/ )
        {
            $self->{'maintenance_url'} = $value;
        }
        elsif ( $key =~ /^-?(owner)$/ )
        {
            $self->{'owner'} = $value;
        }
        else
        {
            push @left, $key, $value;
        }
    }

    $self->{'google_homepage'} =
        "http://groups.google.com/group/" . $self->get_group_base() . "/";

    $self->{'homepage'} = $self->{'google_homepage'};

    return \@left;
}

sub get_maintenance_url
{
    my $self = shift;

    if ( exists( $self->{'maintenance_url'} ) )
    {
        return $self->{'maintenance_url'};
    }
    else
    {
        return $self->{'google_homepage'};
    }
}

sub group_form
{
    my $self = shift;

    my $add = shift;

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

sub _get_post_address
{
    my $self = shift;

    return $self->group_form();
}

sub _get_owner_address
{
    my $self = shift;

    if ( $self->{owner} )
    {
        return @{ $self->{owner} };
    }
    else
    {
        return $self->group_form("owner");
    }
}

sub get_default_hostname
{
    return "googlegroups.com";
}

sub get_online_archive
{
    my $self = shift;

    return $self->SUPER::get_online_archive()
        || $self->get_maintenance_url();
}
1;

__END__