File Coverage

blib/lib/EBook/MOBI/Converter.pm

Criterion	Covered	Total	%
statement	120	120	100.0
branch	19	22	86.3
condition	3	4	75.0
subroutine	19	19	100.0
pod	15	15	100.0
total	176	180	97.7

package EBook::MOBI::Converter;

our $VERSION = '0.72'; # TRIAL VERSION (hook for Dist::Zilla::Plugin::OurPkgVersion)

use strict;
use warnings;

use HTML::Entities;

#############################
# Constructor of this class #
#############################

sub new {
    my $self    = shift;
    my $ref = {};

    bless($ref, $self);

    return $ref;
}

sub text {
    my $self = shift;
    my $txt  = shift;

    #we have to make sure that HTML entities get encoded
    my $mhtml = encode_entities($txt);

    return $mhtml;
}

sub title {
    my $self = shift;
    my $txt  = shift;
    my $lvl  = shift;
    my $toc  = shift;

    # default values for lvl and toc (issue #31 on github)
    unless( defined $lvl ) {
        $lvl = 1;
    }
    unless( defined $toc ) {
        $toc = 1;
    }

    die("Titles can't be higher than level 6\n") if ($lvl > 6);

    my $mhtml = '';

    if ($toc) {
        $mhtml = "$txt\n";
    }
    else {
        # If the h1 (or any other level) should not appear in the TOC
        # we put a whitespace in front of it.
        # Like this the regex of the TOC generator does not find it.
        $mhtml = " $txt \n";
    }

    return $mhtml;
}

sub paragraph {
    my $self = shift;
    my $txt  = shift;

    my $mhtml = "$txt\n";

    return $mhtml;
}

sub newline {
    my $self = shift;

    my $mhtml = "\n";

    return $mhtml;
}

sub pagebreak {
    my $self = shift;

    my $mhtml = "\n";

    return $mhtml;
}

sub italic {
    my $self = shift;
    my $txt  = shift;

    my $mhtml = "$txt";

    return $mhtml;
}

sub bold {
    my $self = shift;
    my $txt  = shift;

    my $mhtml = "$txt";

    return $mhtml;
}

sub code {
    my $self = shift;
    my $txt  = shift;

    my $enc_txt = _nbsp($txt);   # whitespaces
       $enc_txt =~ s/\n/\n/g; # line breaks

    my $mhtml = "$enc_txt\n";

    return $mhtml;
}

sub small {
    my $self = shift;
    my $txt  = shift;

    my $mhtml = "$txt";

    return $mhtml;
}

sub big {
    my $self = shift;
    my $txt  = shift;

    my $mhtml = "$txt";

    return $mhtml;
}

sub emphasize {
    my $self = shift;
    my $txt  = shift;

    my $mhtml = "$txt";

    return $mhtml;
}

sub list {
    my $self      = shift;
    my $list_ref  = shift;
    my $list_type = shift || 'ul';

    my $mhtml = "<$list_type>\n";
    foreach my $item (@{$list_ref}) {

        $mhtml .= "$item\n";
    }
    $mhtml .= "\n";

    return $mhtml;
}

sub table {
    my $self      = shift;
    my %table_data = @_;

    my $table_args = '';
    if (exists $table_data{border}) {
        $table_args .= ' border="'. $table_data{border} .'"';
    }
    if (exists $table_data{cellspacing}) {
        $table_args .= ' cellspacing="'. $table_data{cellspacing} .'"';
    }
    if (exists $table_data{cellpadding}) {
        $table_args .= ' cellpadding="'. $table_data{cellpadding} .'"';
    }

    my $mhtml;
    $mhtml = "\n";

    if (exists $table_data{th}) {
        my @table_header = @{$table_data{th}};

        $mhtml .= "
        foreach my $head (@table_header) {
            $mhtml .= "
        }
        $mhtml .= "
    }

    if (exists $table_data{td}) {
        my @table_datarow = @{$table_data{td}};

        foreach my $row (@table_datarow) {
            my @table_data= @{$row};

            $mhtml .= "
            foreach my $data (@table_data) {
                $mhtml .= "
            }
            $mhtml .= "
        }
    }

    if (exists $table_data{caption}) {
        $mhtml .= "
    }

    $mhtml .= "