File Coverage

blib/lib/Tree/Visualize/Node/INode.pm

Criterion	Covered	Total	%
statement	15	16	93.7
branch	1	2	50.0
condition	5	12	41.6
subroutine	4	5	80.0
pod	2	2	100.0
total	27	37	72.9

package Tree::Visualize::Node::INode;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my ($_class, $tree) = @_;
    my $class = ref($_class) || $_class;
    my $node = {};
    bless($node, $class);
    $node->_init($tree);
    return $node;
}

sub _init {
    my ($self, $tree) = @_;
    (defined($tree) && ref($tree) &&
        (UNIVERSAL::isa($tree, "Tree::Binary") || UNIVERSAL::isa($tree, "Tree::Simple")))
            || throw Tree::Visualize::InsufficientArguments "You must supply a tree to a Node object";
    $self->{tree} = $tree;
}

sub draw { throw Tree::Visualize::MethodNotImplemented }

1;

__END__