File Coverage

blib/lib/Mail/LMLM/Render.pm

Criterion	Covered	Total	%
statement	12	34	35.2
branch	0	2	0.0
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	19	46	41.3

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

use vars qw(@ISA);

use Mail::LMLM::Object;

@ISA = qw(Mail::LMLM::Object);

sub para
{
    my $self = shift;

    $self->start_para();
    $self->text(@_);
    $self->end_para();

    return 0;
}

sub url
{
    my $self = shift;

    my $url = shift;

    my $inside;

    if ( scalar(@_) )
    {
        $inside = shift;
    }
    else
    {
        $inside = $url;
    }

    $self->start_link($url);
    $self->text($inside);
    $self->end_link();

    return 0;
}

sub email_address
{
    my $self = shift;

    my $account = shift;
    my $host    = shift;

    $self->start_link("mailto:$account\@$host");
    $self->text("$account\@$host");
    $self->end_link();

    return 0;
}

1;

__END__