File Coverage

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

Criterion	Covered	Total	%
statement	32	32	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	8	8	100.0
pod	1	1	100.0
total	47	47	100.0

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

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

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

use HTML::Tree::Create::Callback qw();

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

sub create_html_tree_using_callback {
    my ($callback, $num_children_per_level) = @_;

    my $num_children_per_level_so_far = [];

    HTML::Tree::Create::Callback::create_html_tree_using_callback(
        sub {
            my ($level, $seniority) = @_;

            my ($element, $attrs, $text_before, $text_after) =
                $callback->($level, $seniority);
            my $num_children;
            if ($level >= @$num_children_per_level) {
                $num_children = 0;
            } elsif ($level == 0) {
                $num_children = $num_children_per_level->[0];
            } else {

                # at this point we must already have this number of children
                my $target = sprintf("%.0f",
                                     ($seniority+1) *
                                         ($num_children_per_level->[$level] /
                                          $num_children_per_level->[$level-1]));

                # we have this number of children so far
                $num_children_per_level_so_far->[$level] //= 0;
                my $has = $num_children_per_level_so_far->[$level];

                $num_children = $target - $has;
                $num_children_per_level_so_far->[$level] += $num_children;
            }
            return ($element, $attrs, $text_before, $text_after, $num_children);
        },
    );
}

1;
# ABSTRACT: Create HTML document by using a callback (and number of elements per level)

__END__