File Coverage

blib/lib/WWW/Gitea/API/Repos.pm

Criterion	Covered	Total	%
statement	13	57	22.8
branch	0	26	0.0
condition			n/a
subroutine	5	13	38.4
pod	7	7	100.0
total	25	103	24.2

package WWW::Gitea::API::Repos;

# ABSTRACT: Gitea repositories API

use Moo;
use Carp qw(croak);
use WWW::Gitea::Repo;
use namespace::clean;


has client => (
    is       => 'ro',
    required => 1,
    weak_ref => 1,
);


has openapi_operations => (
    is      => 'lazy',
    builder => sub {
        return {
            'repos.get'               => { method => 'GET',    path => '/repos/{owner}/{repo}' },
            'repos.edit'              => { method => 'PATCH',  path => '/repos/{owner}/{repo}' },
            'repos.delete'            => { method => 'DELETE', path => '/repos/{owner}/{repo}' },
            'repos.search'            => { method => 'GET',    path => '/repos/search' },
            'repos.fork'              => { method => 'POST',   path => '/repos/{owner}/{repo}/forks' },
            'repos.create_current'    => { method => 'POST',   path => '/user/repos' },
            'repos.create_org'        => { method => 'POST',   path => '/orgs/{org}/repos' },
            'repos.list_current'      => { method => 'GET',    path => '/user/repos' },
            'repos.list_user'         => { method => 'GET',    path => '/users/{username}/repos' },
        };
    },
);


with 'WWW::Gitea::Role::OpenAPI';

sub _wrap {
    my ($self, $data) = @_;
    return WWW::Gitea::Repo->new(client => $self->client, data => $data);
}

sub get {
    my ($self, $owner, $repo) = @_;
    croak 'owner required' unless defined $owner;
    croak 'repo required'  unless defined $repo;
    my $data = $self->call_operation('repos.get',
        path => { owner => $owner, repo => $repo });
    return $self->_wrap($data);
}


sub create {
    my ($self, %args) = @_;
    croak 'name required' unless defined $args{name};
    my $org = delete $args{org};
    my $body = { %args };
    my $data;
    if (defined $org) {
        $data = $self->call_operation('repos.create_org',
            path => { org => $org }, body => $body);
    }
    else {
        $data = $self->call_operation('repos.create_current', body => $body);
    }
    return $self->_wrap($data);
}


sub edit {
    my ($self, $owner, $repo, %args) = @_;
    croak 'owner required' unless defined $owner;
    croak 'repo required'  unless defined $repo;
    my $data = $self->call_operation('repos.edit',
        path => { owner => $owner, repo => $repo }, body => \%args);
    return $self->_wrap($data);
}


sub delete {
    my ($self, $owner, $repo) = @_;
    croak 'owner required' unless defined $owner;
    croak 'repo required'  unless defined $repo;
    return $self->call_operation('repos.delete',
        path => { owner => $owner, repo => $repo });
}


sub search {
    my ($self, %query) = @_;
    my $data = $self->call_operation('repos.search', query => \%query);
    return [ map { $self->_wrap($_) } @{ $data->{data} || [] } ];
}


sub fork {
    my ($self, $owner, $repo, %args) = @_;
    croak 'owner required' unless defined $owner;
    croak 'repo required'  unless defined $repo;
    my $data = $self->call_operation('repos.fork',
        path => { owner => $owner, repo => $repo }, body => \%args);
    return $self->_wrap($data);
}


sub list {
    my ($self, %args) = @_;
    my $username = delete $args{username};
    my $data;
    if (defined $username) {
        $data = $self->call_operation('repos.list_user',
            path => { username => $username }, query => \%args);
    }
    else {
        $data = $self->call_operation('repos.list_current', query => \%args);
    }
    return [ map { $self->_wrap($_) } @{ $data || [] } ];
}



1;

__END__