sub get_ids {
    my ($self, %attrs) = @_;
    
    # Do stuff...

    my %result;
    # $result{'message'} = '';
    if ($self->{'error'}) {
        $result{'status'}  = 'error';
        $result{'message'} = $self->{'error'};
    } else {
        $result{'status'}  = 'success';
        $result{'api-key'} = $self->{'api-public'};
        $result{'session'} = $intent_id;
    }

    return encode_json(\%result) if lc($attrs{'format'}) eq 'json';
    return $result{'message'} or "$result{'api-key'}:$result{'session'}";   # <- line 229
    return "SOMETHING";
}