File Coverage

blib/lib/Log/LTSV/Instance/Flatten.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             package Log::LTSV::Instance::Flatten;
2 3     3   623 use strict;
  3         7  
  3         81  
3 3     3   14 use warnings;
  3         6  
  3         124  
4 3     3   2217 use Hash::Flatten;
  3         10220  
  3         452  
5              
6             sub new {
7 15     15 0 33 my $class = shift;
8              
9 15         97 my $flatten = Hash::Flatten->new({
10             HashDelimiter => '.',
11             ArrayDelimiter => '.',
12             });
13 15         470 my $self = bless {
14             flatten => $flatten,
15             }, $class;
16 15         45 return $self;
17             }
18             sub flatten {
19 33     33 0 49692 my ($self, $prefix, $args) = @_;
20 33         155 my $flat = $self->{flatten}->flatten({ $prefix => $args });
21 33         8360 return %{ $flat };
  33         162  
22             }
23              
24             1;