File Coverage

lib/I18NFool/ExtractorMerger.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition	2	2	100.0
subroutine	3	3	100.0
pod	0	1	0.0
total	23	24	95.8

package I18NFool::ExtractorMerger;
use warnings;
use strict;


sub process
{
    my $class  = shift;
    my $result = {};
    foreach my $domain_hash (@_)
    {
        foreach my $domain_key (keys %{$domain_hash})
        {
            my $domain_lexicon = $domain_hash->{$domain_key};
            foreach my $key ( keys %{$domain_lexicon} )
            {
                my $po_entry = $domain_lexicon->{$key};
                $result->{$domain_key} ||= {};
                $result->{$domain_key}->{$key} = $po_entry;
            }
        }
    }

    return $result;
}


1;


__END__