File Coverage

blib/lib/WWW/Gitea.pm

Criterion	Covered	Total	%
statement	47	54	87.0
branch	2	2	100.0
condition			n/a
subroutine	19	24	79.1
pod	2	2	100.0
total	70	82	85.3

package WWW::Gitea;

# ABSTRACT: Perl client for the Gitea REST API

use Moo;
use Carp qw(croak);
use WWW::Gitea::API::Misc;
use WWW::Gitea::API::Users;
use WWW::Gitea::API::Repos;
use WWW::Gitea::API::Issues;
use WWW::Gitea::API::PullRequests;
use WWW::Gitea::API::Labels;
use WWW::Gitea::API::Milestones;
use WWW::Gitea::API::Releases;
use WWW::Gitea::API::Orgs;
use namespace::clean;

our $VERSION = '0.002';


has url => (
    is      => 'ro',
    default => sub { $ENV{GITEA_URL} },
);


has token => (
    is      => 'ro',
    default => sub { $ENV{GITEA_TOKEN} },
);


has username => (
    is      => 'ro',
    default => sub { $ENV{GITEA_USERNAME} },
);

has password => (
    is      => 'ro',
    default => sub { $ENV{GITEA_PASSWORD} },
);


has api_url => (
    is      => 'lazy',
    builder => sub {
        my ($self) = @_;
        my $url = $self->url
            or croak 'url required (e.g. https://gitea.example.com)';
        $url =~ s{/+$}{};
        $url =~ s{/api/v1$}{};
        return $url . '/api/v1';
    },
);


with 'WWW::Gitea::Role::HTTP';

has misc => (
    is      => 'lazy',
    builder => sub { WWW::Gitea::API::Misc->new(client => $_[0]) },
);


has users => (
    is      => 'lazy',
    builder => sub { WWW::Gitea::API::Users->new(client => $_[0]) },
);


has repos => (
    is      => 'lazy',
    builder => sub { WWW::Gitea::API::Repos->new(client => $_[0]) },
);


has issues => (
    is      => 'lazy',
    builder => sub { WWW::Gitea::API::Issues->new(client => $_[0]) },
);


has pulls => (
    is      => 'lazy',
    builder => sub { WWW::Gitea::API::PullRequests->new(client => $_[0]) },
);


has labels => (
    is      => 'lazy',
    builder => sub { WWW::Gitea::API::Labels->new(client => $_[0]) },
);


has milestones => (
    is      => 'lazy',
    builder => sub { WWW::Gitea::API::Milestones->new(client => $_[0]) },
);


has releases => (
    is      => 'lazy',
    builder => sub { WWW::Gitea::API::Releases->new(client => $_[0]) },
);


has orgs => (
    is      => 'lazy',
    builder => sub { WWW::Gitea::API::Orgs->new(client => $_[0]) },
);


sub version {
    my ($self) = @_;
    return $self->misc->version;
}


sub current_user {
    my ($self) = @_;
    return $self->misc->current_user;
}



1;

__END__