File Coverage

blib/lib/Tree/Visualize/Node/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::Node::Factory;
3              
4 4     4   22 use strict;
  4         8  
  4         208  
5 4     4   23 use warnings;
  4         8  
  4         169  
6              
7             our $VERSION = '0.01';
8              
9 4     4   20 use base qw(Tree::Visualize::Factory);
  4         22  
  4         678  
10              
11             sub _init {
12 46     46   56 my ($self) = @_;
13 46         173 $self->SUPER::_init("Node");
14             }
15              
16             sub _resolvePackage {
17 46     46   104 my ($self, %path) = @_;
18 46         142 return $path{node_type};
19             }
20              
21             1;
22              
23             __END__