File Coverage

blib/lib/Data/Seek/Data.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition 2 4 50.0
subroutine 4 4 100.0
pod 2 2 100.0
total 20 22 90.9


line stmt bran cond sub pod time code
1             # ABSTRACT: Data::Seek Data Structure Container
2             package Data::Seek::Data;
3              
4 4     4   1427 use Data::Object::Class;
  4         30891  
  4         24  
5 4     4   4600 use Hash::Flatten ();
  4         6082  
  4         316  
6              
7             our $VERSION = '0.06'; # VERSION
8              
9             has 'object', is => 'ro';
10              
11             sub decode {
12 1     1 1 2 my $self = shift;
13 1   50     4 my $object = $self->object // {};
14 1         3 return Hash::Flatten::unflatten $object;
15             }
16              
17             sub encode {
18 42     42 1 36 my $self = shift;
19 42   50     96 my $object = $self->object // {};
20 42         77 return Hash::Flatten::flatten $object;
21             }
22              
23             1;
24              
25             __END__