sub first_name {
    my ($self, $id) = @_;
    unless (defined $self->{'first_name'}{$id}
        $self->_get_info_from_database;
    }
    return $self->{'first_name'}{$id};
}