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

package Log::LTSV::Instance::Flatten;
use strict;
use warnings;
use Hash::Flatten;

sub new {
    my $class = shift;

    my $flatten = Hash::Flatten->new({
        HashDelimiter  => '.',
        ArrayDelimiter => '.',
    });
    my $self = bless {
        flatten => $flatten,
    }, $class;
    return $self;
}
sub flatten {
    my ($self, $prefix, $args) = @_;
    my $flat = $self->{flatten}->flatten({ $prefix => $args });
    return %{ $flat };
}

1;