File Coverage

blib/lib/Curio/Role/GitLab/API/v4.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	6	12	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	41	49	83.6

package Curio::Role::GitLab::API::v4;
our $VERSION = '0.04';

use GitLab::API::v4;
use Scalar::Util qw( blessed );
use Types::Standard qw( InstanceOf HashRef );

use Moo::Role;
use strictures 2;
use namespace::clean;

with 'Curio::Role';

after initialize => sub{
    my ($class) = @_;

    my $factory = $class->factory();

    $factory->does_caching( 1 );
    $factory->resource_method_name( 'api' );

    return;
};

has _custom_api => (
    is       => 'ro',
    isa      => InstanceOf[ 'GitLab::API::v4' ] | HashRef,
    required => 1,
    init_arg => 'api',
    clearer  => '_clear_custom_api',
);

has api => (
    is       => 'lazy',
    init_arg => undef,
);

sub _build_api {
    my ($self) = @_;

    my $api = $self->_custom_api();
    $self->_clear_custom_api();
    return $api if blessed $api;

    my $args = $api ? { %$api } : {};

    if ($self->can('access_token')) {
        my $token = $self->access_token();
        $args->{access_token} = $token if defined $token;
    }

    if ($self->can('private_token')) {
        my $token = $self->private_token();
        $args->{private_token} = $token if defined $token;
    }

    return GitLab::API::v4->new( $args );
}

1;
__END__