File Coverage

blib/lib/Data/YADV/Structure/Scalar.pm
Criterion Covered Total %
statement 10 12 83.3
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 14 18 77.7


line stmt bran cond sub pod time code
1             package Data::YADV::Structure::Scalar;
2              
3 2     2   31 use strict;
  2         2  
  2         65  
4 2     2   11 use warnings;
  2         3  
  2         51  
5              
6 2     2   11 use base 'Data::YADV::Structure::Base';
  2         4  
  2         283  
7              
8             sub _get_child_node {
9 0     0   0 my ($self, $entry) = @_;
10              
11 0         0 die "scalar element have no child elements";
12             }
13              
14 1     1 0 5 sub get_size { length $_[0]->get_structure }
15              
16             1;