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.6807';
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__