File Coverage

blib/lib/Data/YADV/Structure.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition 2 2 100.0
subroutine 6 6 100.0
pod 0 1 0.0
total 26 27 96.3


line stmt bran cond sub pod time code
1             package Data::YADV::Structure;
2              
3 2     2   165002 use strict;
  2         5  
  2         72  
4 2     2   12 use warnings;
  2         4  
  2         51  
5              
6 2     2   1347 use Data::YADV::Structure::Array;
  2         14  
  2         56  
7 2     2   1403 use Data::YADV::Structure::Hash;
  2         4  
  2         48  
8 2     2   1129 use Data::YADV::Structure::Scalar;
  2         7  
  2         177  
9              
10             sub new {
11 70     70 0 12067 my ($class, $structure, $path, $parent) = @_;
12              
13 70   100     233 my $type = ucfirst(lc(ref($structure) || 'Scalar'));
14 70         444 "Data::YADV::Structure::$type"->new($structure, $path, $parent);
15             }
16              
17             1;