File Coverage

blib/lib/Tree/Visualize/Layout/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::Layout::Factory;
3              
4 6     6   30 use strict;
  6         12  
  6         188  
5 6     6   30 use warnings;
  6         10  
  6         316  
6              
7             our $VERSION = '0.01';
8              
9 6     6   33 use base qw(Tree::Visualize::Factory);
  6         9  
  6         3694  
10              
11             sub _init {
12 1     1   2 my ($self) = @_;
13 1         6 $self->SUPER::_init("Layouts");
14             }
15              
16             sub _resolvePackage {
17 1     1   4 my ($self, %path) = @_;
18 1         19 return $path{tree_type} . "::" . $path{layout};
19             }
20              
21             1;
22              
23             __END__