File Coverage

blib/lib/Tree/Visualize/Connector/IConnector.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition	4	12	33.3
subroutine	5	5	100.0
pod	2	2	100.0
total	27	35	77.1

package Tree::Visualize::Connector::IConnector;

use strict;
use warnings;

use Tree::Visualize::Exceptions;

our $VERSION = '0.01';

## constructor

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

sub checkArgs {
    my ($self, @args) = @_;
    (defined($_) && ref($_) && UNIVERSAL::isa($_, "Tree::Visualize::ASCII::BoundingBox"))
        || throw Tree::Visualize::InsufficientArguments "argument must be a bounding box"
            foreach @args;
}

1;

__END__