File Coverage

blib/lib/Tree/Visualize/ASCII/Layouts/Simple/TopDown.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	9	10	90.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	61	62	98.3

package Tree::Visualize::ASCII::Layouts::Simple::TopDown;

use strict;
use warnings;

our $VERSION = '0.01';

use base qw(Tree::Visualize::ASCII::Layouts::Simple);

use Tree::Visualize::Exceptions;
use Tree::Visualize::ASCII::BoundingBox;
use Tree::Visualize::Connector::Factory;

sub drawConnections {
    return ();
}

sub assembleDrawing {
    my ($self, $current, $children, $connections) = @_;

    my @children = @{$children};

    if (@children) {
        # gather all the children
        my $child_output;
        foreach my $child (@children) {
            # if we have no output yet then ...
            unless ($child_output) {
                # just draw the child
                $child_output = $child;
            }
            # if we do have output then,...
            else {
                # just combine the output with
                # the newly drawn child
                $child_output = $child_output->padRight(" ")->pasteRight($child);
            }
        }

        # the size of the child output
        my $child_output_width = $child_output->width();

        # get the padding needed
        my ($padding, $child_padding) = (0, 0);
        if ($child_output->width() > $current->width()) {
            $padding = ($child_output->width() / 2) - ($current->width() / 2);
        }
        else {
            $child_padding = ($current->width() / 2) - ($child_output->width() / 2);
        }

        $current->padLeft(" " x $padding)->padRight(" " x $padding) if $padding;
        $child_output->padLeft(" " x $child_padding)->padRight(" " x $child_padding) if $child_padding;

        my $first_child_line = ($child_output->getLinesAsArray())[0];
        my $space_until = index($first_child_line, "|");
        my $bar_uptil = $child_output->width() - rindex($first_child_line, "|");

        my $child_bar = Tree::Visualize::ASCII::BoundingBox->new(
                        (" " x $space_until) .
                        ("_" x (($child_output->width() / 2) - $space_until)) .
                        "|" .
                        ("_" x (($child_output->width() / 2) - $bar_uptil + 1)) .
                        (" " x ($bar_uptil - 1))
                        );

        $current->pasteBottom($child_bar)->pasteBottom($child_output);
    }

    my $top_branch = Tree::Visualize::ASCII::BoundingBox->new(
                            (" " x ($current->width() / 2)) .
                            "|" .
                            (" " x ($current->width() / 2))
                            );
    return $current->pasteTop($top_branch);
}


1;

__END__