File Coverage

blib/lib/HTML/Tree/Create/Callback.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	6	6	100.0
condition	5	8	62.5
subroutine	7	7	100.0
pod	1	1	100.0
total	51	54	94.4

package HTML::Tree::Create::Callback;

our $DATE = '2016-03-31'; # DATE
our $VERSION = '0.002'; # VERSION

use 5.010001;
use strict;
use warnings;
use HTML::Entities;

use Exporter qw(import);
our @EXPORT_OK = qw(create_html_tree_using_callback);

sub _render_elem {
    my ($callback, $level, $seniority) = @_;

    my $indent  = "  " x $level;
    my $indent2 = "  " x ($level + 1);

    my ($elem, $attrs, $text_before, $text_after, $num_children) =
        $callback->($level, $seniority);

    my @res;

    $attrs //= {};
    push @res, (
        $indent,
        "<$elem",
        keys(%$attrs) ? " " : "",
        join(" ",
             map {$_ . '="' . encode_entities($attrs->{$_}) . '"'}
                 sort keys %$attrs
             ),
        ">\n"
    );
    if (defined($text_before) && length($text_before)) {
        push @res, $indent2, $text_before, "\n";
    }
    for (0..$num_children-1) {
        push @res, _render_elem($callback, $level+1, $_);
    }
    if (defined($text_after) && length($text_after)) {
        push @res, $indent2, $text_after, "\n";
    }
    push @res, $indent, "\n";
    @res;
}

sub create_html_tree_using_callback {
    my $callback = shift;

    # create the root node
    join("", _render_elem($callback, 0, 0));
}

1;
# ABSTRACT: Create HTML document by using a callback

__END__