File Coverage

blib/lib/Catmandu/Fix/wd_simple_strings.pm

Criterion	Covered	Total	%
statement	6	18	33.3
branch	0	4	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	26	30.7

package Catmandu::Fix::wd_simple_strings;
#ABSTRACT: Simplify labels, descriptions, and aliases of Wikidata entity records
our $VERSION = '0.06'; #VERSION
use Catmandu::Sane;
use Moo;

sub fix {
    my ($self, $data) = @_;

    foreach my $what (qw(labels descriptions)) {
        my $hash = $data->{$what};
        if ($hash) {
            foreach my $lang (keys %$hash) {
                $hash->{$lang} = $hash->{$lang}->{value};
            };
        }
    }

    if (my $hash = $data->{aliases}) {
        foreach my $lang (keys %$hash) {
            $hash->{$lang} = [ map { $_->{value} } @{$hash->{$lang}} ];
        }
    }

    $data;
}

1;

__END__