Yet Another CPAN Grep

QBit-Application-Model-DBManager-Users ( M/MA/MADSKILL/QBit-Application-Model-DBManager-Users-0.007.tar.gz, MADSKILL, 2017; MetaCPAN )

QBit-Application-Model-DBManager-Users/lib/QBit/Application/Model/DBManager/Users.pm ( view source; MetaCPAN )

a_fields = $self->db->users_extra_fields->get_all(
            fields => [qw(user_id key value is_json)],
            filter => {user_id => array_uniq(map {$_->{'id'}} @$result)}
        );

        f

ields->{'__EXTRA_FIELDS__'}{$rec->{'user_id'}}{$rec->{'key'}}},
                $rec->{'is_json'} ? from_json($rec->{'value'}) : $rec->{'value'}
            );
        }
    }
}

sub add {
    my ($se

ta,
                        map {{user_id => $id, key => $key, value => $_->{'value'}, is_json => $_->{'is_json'}}}
                          @{$extra_fields->{$key}});
                }