File Coverage

blib/lib/Tree/Template/Declare/HTML_Element.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	2	2	100.0
condition			n/a
subroutine	14	14	100.0
pod	0	7	0.0
total	58	65	89.2

package Tree::Template::Declare::HTML_Element;
{
  $Tree::Template::Declare::HTML_Element::DIST = 'Tree-Template-Declare';
}
$Tree::Template::Declare::HTML_Element::VERSION = '0.7';
use strict;
use warnings;
use Carp;
use HTML::Element;

sub new {
    my ($class)=@_;

    return bless {},$class;
}

sub _munge_exports {
    my ($self,$exports)=@_;

    my %all_exports=(
        %{$exports},
        text_node => sub($) {
            $exports->{node}->(
                sub {
                    $exports->{name}->('~text');
                    $exports->{attribs}->(text => $_[0]);
                });
        },
    );

    return \%all_exports;
}

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

    return bless [],'Tree::Template::Declare::HTML_Element::Tree';
}

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

    my $dom=$tree->[0];
    $dom->deobjectify_text();
    return $dom;
}

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

    return HTML::Element->new('~comment');
}

sub add_child_node {
    my ($self,$parent,$child)=@_;


    if ($parent->isa('Tree::Template::Declare::HTML_Element::Tree')) {
        push @{$parent},$child;
        return $parent;
    }
    return $parent->push_content($child);
}

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

    return $node->tag($name);
}

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

    while (my ($name,$val)=each %{$attrs}) {
        $node->attr($name, $val);
    }
    return;
}

1;

=pod

=encoding UTF-8

=head1 NAME

Tree::Template::Declare::HTML_Element - adaptor for HTML::Element

=head1 VERSION

version 0.7

=head1 SYNOPSIS

See L.

=head1 SPECIFICITIES

This module will build trees using L.

To create text nodes, you would be forced to say:

  node {
    name '~text';
    attribs text => 'some text';
  }

which is too cumbersone. You can instead use:

  text_node 'some text';

HTML::Element's C method will be called by
C before returning the tree object.

=for Pod::Coverage add_child_node finalize_tree new new_node new_tree set_node_attributes set_node_name

=head1 AUTHOR

Gianni Ceccarelli

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Gianni Ceccarelli .

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

__END__