File Coverage

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

Criterion	Covered	Total	%
statement	16	44	36.3
branch	0	14	0.0
condition			n/a
subroutine	6	13	46.1
pod	6	6	100.0
total	28	77	36.3

package WWW::Gitea::API::Orgs;

# ABSTRACT: Gitea organizations API

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


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


has openapi_operations => (
    is      => 'lazy',
    builder => sub {
        return {
            'orgs.get'          => { method => 'GET',    path => '/orgs/{org}' },
            'orgs.create'       => { method => 'POST',   path => '/orgs' },
            'orgs.edit'         => { method => 'PATCH',  path => '/orgs/{org}' },
            'orgs.delete'       => { method => 'DELETE', path => '/orgs/{org}' },
            'orgs.list_repos'   => { method => 'GET',    path => '/orgs/{org}/repos' },
            'orgs.list_current' => { method => 'GET',    path => '/user/orgs' },
        };
    },
);


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

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

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


sub create {
    my ($self, %args) = @_;
    croak 'username required' unless defined $args{username};
    my $data = $self->call_operation('orgs.create', body => \%args);
    return $self->_wrap($data);
}


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


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


sub repos {
    my ($self, $org, %query) = @_;
    croak 'org required' unless defined $org;
    my $data = $self->call_operation('orgs.list_repos',
        path => { org => $org }, query => \%query);
    return [ map {
        WWW::Gitea::Repo->new(client => $self->client, data => $_)
    } @{ $data || [] } ];
}


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



1;

__END__