File Coverage

blib/lib/Markdown/Compiler/Target/HTML.pm

Criterion	Covered	Total	%
statement	68	74	91.8
branch	13	16	81.2
condition	3	5	60.0
subroutine	25	28	89.2
pod	0	23	0.0
total	109	146	74.6

package Markdown::Compiler::Target::HTML;
use Moo;
use Storable qw( dclone );

has tree => (
    is => 'ro',
);

has result => (
    is      => 'ro',
    lazy    => 1,
    builder => sub { shift->html },
);

has html => (
    is      => 'ro',
    lazy    => 1,
    builder => '_build_html',
);

has functions => (
    is  => 'ro',
    lazy => 1,
    default => sub {
        return +{
            'Markdown::Compiler::Parser::Node::Metadata'               => 'noop',

            'Markdown::Compiler::Parser::Node::Header'                 => 'header',

            'Markdown::Compiler::Parser::Node::HR'                     => 'hr',

            'Markdown::Compiler::Parser::Node::Paragraph'              => 'paragraph',
            'Markdown::Compiler::Parser::Node::Paragraph::InlineCode'  => 'paragraph_inlinecode',
            'Markdown::Compiler::Parser::Node::Paragraph::BoldItalic'  => 'paragraph_bolditalic',
            'Markdown::Compiler::Parser::Node::Paragraph::Bold'        => 'paragraph_bold',
            'Markdown::Compiler::Parser::Node::Paragraph::Italic'      => 'paragraph_italic',
            'Markdown::Compiler::Parser::Node::Paragraph::String'      => 'paragraph_string',
            'Markdown::Compiler::Parser::Node::Paragraph::Link'        => 'paragraph_link',
            'Markdown::Compiler::Parser::Node::Paragraph::Image'       => 'paragraph_image',

            'Markdown::Compiler::Parser::Node::Table'                  => 'table',
            'Markdown::Compiler::Parser::Node::Table::Row'             => 'table_row',
            'Markdown::Compiler::Parser::Node::Table::Cell'            => 'table_cell',
            'Markdown::Compiler::Parser::Node::Table::HeaderCell'      => 'table_header_cell',

            'Markdown::Compiler::Parser::Node::BlockQuote'             => 'blockquote',
            'Markdown::Compiler::Parser::Node::BlockQuote::String'     => 'blockquote_string',

            'Markdown::Compiler::Parser::Node::CodeBlock'              => 'codeblock',
            'Markdown::Compiler::Parser::Node::CodeBlock::String'      => 'codeblock_string',

            'Markdown::Compiler::Parser::Node::List::Ordered'          => 'ordered_list',
            'Markdown::Compiler::Parser::Node::List::Unordered'        => 'unordered_list',
            'Markdown::Compiler::Parser::Node::List::Unordered::Item'  => 'list_item',
            'Markdown::Compiler::Parser::Node::List::Ordered::Item'    => 'list_item',
            'Markdown::Compiler::Parser::Node::List::Item::String'     => 'list_item_string',
        }
    }
);

sub _build_html {
    my ( $self ) = @_;

    return $self->_compile( dclone $self->tree );
}

sub _compile {
    my ( $self, $tree ) = @_;

    my $str;

    while ( defined ( my $node = shift @{ $tree } ) ) {
        # Children should be compiled first.
        if ( $node->{children} and @{$node->{children}} >= 1 ) {

            # If this node can be compiled, then we will compile it, giving it the content
            if ( my $code = $self->can($self->functions->{$node->{class}}) ) {
                $str .= $code->($self, $node, $self->_compile(@{$node->{children}}));
                next;
            }
            warn "This is an odd place to be.... children but the parent can't be compiled?";
        }

        # This node has no children to compile.
        else {
            if ( my $code = $self->can($self->functions->{$node->{class}}) ) {
                $str .= $code->($self, $node);
                next;
            } else {
                die "Error no handler found for token type " . ref($node) . "\n";
            }

        }
    }
    return $str;
}

sub noop { "" }

sub header {
    my ( $self, $node, $content ) = @_;

    my $header = "h" . $node->{size};

    return "<$header>$content\n\n";

}

sub hr {
    return "";
}

sub paragraph {
    my ( $self, $node, $content ) = @_;

    return "$content\n\n";

}

sub paragraph_inlinecode {
    my ( $self, $node, $content ) = @_;

    return '' . $content . '';

}

sub paragraph_bolditalic {
    my ( $self, $node, $content ) = @_;

    return "$content";

}

sub paragraph_bold {
    my ( $self, $node, $content ) = @_;

    return "$content";

}

sub paragraph_italic {
    my ( $self, $node, $content ) = @_;

    return "$content";
}

sub paragraph_string {
    my ( $self, $node ) = @_;

    return $node->{content};

}

sub paragraph_link {
    my ( $self, $node ) = @_;

    if ( $node->{title} ) {
        return sprintf( '%s',
            $node->{href},
            $node->{title},
            $node->{text},
        );
    } else {
        return sprintf( '%s',
            $node->{href},
            $node->{text} ? $node->{text} : $node->{href},
        );
    }

}

sub paragraph_image {
    my ( $self, $node ) = @_;

    if ( $node->{title} ) {
        return sprintf( '',
            $node->{href},
            $node->{title},
            $node->{text}
        );
    } else {
        return sprintf( '',
            $node->{href},
            $node->{text} ? $node->{text} : $node->{href},
        );
    }
}

sub table_header_cell {
    my ( $self, $node, $content ) = @_;

    return sprintf( "

}

sub table_cell {
    my ( $self, $node, $content ) = @_;

    return sprintf( "

}

sub table_row {
    my ( $self, $node, $content ) = @_;

    return "
}

sub table {
    my ( $self, $node, $content ) = @_;

    return "\n$content\n\n";
}

sub blockquote {
    my ( $self, $node, $content ) = @_;

    return "$content\n\n";
}

sub blockquote_string {
    my ( $self, $node ) = @_;

    return $node->{content} || "";
}

sub codeblock {
    my ( $self, $node, $content ) = @_;

    return $node->{language}
        ? "{language} . "\">\n$content\n\n\n"
        : "\n$content\n\n\n"
}

sub codeblock_string {
    my ( $self, $node ) = @_;

    return $node->{content};

}

sub ordered_list {
    my ( $self, $node, $content ) = @_;

    return "\n$content\n\n";

}

sub unordered_list {
    my ( $self, $node, $content ) = @_;

    return "\n$content\n\n";

}

sub list_item {
    my ( $self, $node, $content ) = @_;

    return "$content\n";

}

sub list_item_string {
    my ( $self, $node ) = @_;

    return $node->{content};
}







        # package Markdown::Compiler::Parser::Node;
        # package Markdown::Compiler::Parser::Node::Header;
        # package Markdown::Compiler::Parser::Node::HR;
        # package Markdown::Compiler::Parser::Node::Paragraph;
        # package Markdown::Compiler::Parser::Node::Paragraph::BoldItalic;
        # package Markdown::Compiler::Parser::Node::Paragraph::Bold;
        # package Markdown::Compiler::Parser::Node::Paragraph::Italic;
        # package Markdown::Compiler::Parser::Node::Paragraph::String;
        # package Markdown::Compiler::Parser::Node::Paragraph::Link;
        # package Markdown::Compiler::Parser::Node::Paragraph::Image;
        # package Markdown::Compiler::Parser::Node::Table;
        # package Markdown::Compiler::Parser::Node::Blockquote;
        # package Markdown::Compiler::Parser::Node::Codeblock;
        # package Markdown::Compiler::Parser::Node::List;



1;