File Coverage

blib/lib/Tree/Visualize/Layout/ILayout.pm

Criterion	Covered	Total	%
statement	20	25	80.0
branch			n/a
condition	1	3	33.3
subroutine	5	10	50.0
pod	7	7	100.0
total	33	45	73.3

package Tree::Visualize::Layout::ILayout;

use strict;
use warnings;

use Tree::Visualize::Exceptions;

our $VERSION = '0.01';

sub new {
    my ($_class, $options) = @_;
    my $class = ref($_class) || $_class;
    my $layout = {};
    bless($layout, $class);
    return $layout;
}

sub draw {
    my ($self, $tree) = @_;
    # check the tree, do anything needed on it
    $tree = $self->checkTree($tree);
    # draw the current node
    my $current = $self->drawNode($tree);
    # draw all the children
    my @children = $self->drawChildren($tree);
    # draw all the connections
    my @connections = $self->drawConnections($current, @children);
    # assemble the drawing and return it
    return $self->assembleDrawing($current, \@children, \@connections);
}

sub checkTree       { throw Tree::Visualize::MethodNotImplemented }
sub drawNode        { throw Tree::Visualize::MethodNotImplemented }
sub drawChildren    { throw Tree::Visualize::MethodNotImplemented }
sub drawConnections { throw Tree::Visualize::MethodNotImplemented }
sub assembleDrawing { throw Tree::Visualize::MethodNotImplemented }

1;

__END__