view release on metacpan or  search on metacpan

lib/App/TimeTracker/Command/Gitlab.pm  view on Meta::CPAN

#};

sub _get_user_id {
    my $self = shift;
    my $user = $self->_call('GET','user');
    return $user->{id} if $user && $user->{id};
    return;
}

sub _call {
    my ($self,$method,  $endpoint, $args) = @_;

    my $url = $self->config->{gitlab}{url}.'/api/v4/'.$endpoint;
    my $res = $self->gitlab_client->request($method,$url);
    if ($res->{success}) {
        my $data = decode_json($res->{content});
        return $data;
    }
    error_message(join(" ",$res->{status}, $res->{reason}, "\n" . $res->{content}));
}

sub App::TimeTracker::Data::Task::gitlab_issue {
    my $self = shift;