File Coverage

blib/lib/Tree/Visualize/Connector/Factory.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 18 100.0


line stmt bran cond sub pod time code
1              
2             package Tree::Visualize::Connector::Factory;
3              
4 4     4   21 use strict;
  4         9  
  4         158  
5 4     4   20 use warnings;
  4         9  
  4         186  
6              
7             our $VERSION = '0.01';
8              
9 4     4   19 use base qw(Tree::Visualize::Factory);
  4         7  
  4         581  
10              
11             sub _init {
12 30     30   35 my ($self) = @_;
13 30         89 $self->SUPER::_init("Connectors");
14             }
15              
16             sub _resolvePackage {
17 28     28   58 my ($self, %path) = @_;
18 28         118 return $path{layout} . "::" . $path{connector_type};
19             }
20              
21             1;
22              
23             __END__