gistfile1.pl

sub _hash_to_row
{
    my ($self, $artist, $names) = @_;
    no warnings 'uninitialized';
    my $row = {
        name => $names->{$artist->{name}},
        sortname => $names->{$artist->{sort_name}} || $names->{$artist->{name}},
        begindate_year => $artist->{begin_date}->{year},
        begindate_month => $artist->{begin_date}->{month},
        begindate_day => $artist->{begin_date}->{day},
        enddate_year => $artist->{end_date}->{year},
        enddate_month => $artist->{end_date}->{month},
        enddate_day => $artist->{end_date}->{day},
        country => $artist->{country},
        type => $artist->{type},
        gender => $artist->{gender},
        comment => $artist->{comment},
    };
    return {
        map { $_ => $row->{$_}}
        grep { defined $row->{$_} }
        keys %$row
    };
}