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__