File Coverage

blib/lib/Mail/LMLM/Render/HTML.pm

Criterion	Covered	Total	%
statement	12	139	8.6
branch	0	24	0.0
condition			n/a
subroutine	4	20	20.0
pod	14	14	100.0
total	30	197	15.2

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

use vars qw(@ISA);

use Mail::LMLM::Render;

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

sub initialize
{
    my $self = shift;

    my $out_file = shift;

    $self->{'out'} = $out_file;

    return 0;
}

sub _htmlize_onechar
{
    my $c = shift;

    if ($c eq "<")
    {
        return "\<";
    }
    elsif ($c eq ">")
    {
        return "\>";
    }
    elsif ($c eq '&')
    {
        return "\&"
    }
    elsif ($c eq "\n")
    {
        return "";
    }
    else
    {
        return $c;
    }
}

sub _htmlize
{
    my $text = shift;

    $text =~ s/(<|>|\&|\n)/_htmlize_onechar($1)/ge;

    return $text;
}

sub text
{
    my $self = shift;

    my $text = shift;

    my $style;

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

    my $out = _htmlize($text);

    if ($style->{'bold'})
    {
        $out = "".$out."";
    }
    if ($style->{'underline'})
    {
        $out = "".$out."";
    }
    if ($style->{'italic'})
    {
        $out = "".$out."";
    }

    print {*{$self->{'out'}}} $out;

    return 0;
}

sub newline
{
    my $self = shift;

    print {*{$self->{'out'}}} "\n" ;
}

sub indent_inc
{
    my $self = shift;

    print {*{$self->{'out'}}} "\n\n";

    return 0;
}

sub indent_dec
{
    my $self = shift;

    print {*{$self->{'out'}}} "\n\n" ;

    return 0;
}

sub start_link
{
    my $self = shift;

    my $url = shift;

    print {*{$self->{'out'}}} "";

    return 0;
}

sub end_link
{
    my $self = shift;

    print {*{$self->{'out'}}} "";

    return 0;
}

sub start_section
{
    my $self = shift;

    my $title = shift;

    my $options;

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

    my $o = $self->{'out'};

    my $id_attr = "";
    if (exists($options->{'id'}))
    {
        $id_attr = " id=\"" . $options->{'id'} . "\"";
    }

    print {*{$o}} "";
    if (exists($options->{'title_url'}))
    {
        print {*{$o}} "{'title_url'} . "\">" ;
    }
    $self->text($title);
    if (exists($options->{'title_url'}))
    {
        print {*{$o}} "";
    }
    print {*{$o}} "" ;
    print {*{$o}} "\n\n";


    return 0;
}

sub start_para
{
    my $self = shift;

    print {*{$self->{'out'}}}("\n");

    return 0;
}

sub end_para
{
    my $self = shift;

    print {*{$self->{'out'}}}("\n\n");

    return 0;
}

sub end_section
{
    my $self = shift;

    print {*{$self->{'out'}}}("\n\n");

    return 0;
}

sub start_document
{
    my $self = shift;

    my $head_title = shift;

    my $body_title = shift;

    $head_title = _htmlize($head_title);

    my $o = $self->{'out'};

    print {*{$o}} <<"EOF" ;


     PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">


$head_title




EOF


    print {*{$o}}("");

    $self->text($body_title);

    print {*{$o}}("\n\n");

    return 0;
}

sub end_document
{
    my $self = shift;

    print {*{$self->{'out'}}}(
        "\n" .
        "\n" .
        "\n"
        );

    return 0;
}

sub horizontal_line
{
    my $self = shift;

    print {*{$self->{'out'}}}("\n\n\n\n");

    return 0;
}

1;

__END__