File Coverage

blib/lib/Net/Async/Zitadel.pm

Criterion	Covered	Total	%
statement	18	29	62.0
branch	0	4	0.0
condition	0	2	0.0
subroutine	6	10	60.0
pod	0	1	0.0
total	24	46	52.1

package Net::Async::Zitadel;

# ABSTRACT: Async Perl client for Zitadel identity management (IO::Async + Future)

use Moo;
use Net::Async::HTTP;
use Net::Async::Zitadel::OIDC;
use Net::Async::Zitadel::Management;
use Net::Async::Zitadel::Error;
use namespace::clean;

extends 'IO::Async::Notifier';

our $VERSION = '0.001';

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

sub BUILD {
    my $self = shift;
    die Net::Async::Zitadel::Error::Validation->new(
        message => 'issuer must not be empty',
    ) unless length $self->issuer;
}

has token => (
    is  => 'ro',
    doc => 'Personal Access Token for Management API',
);

has http => (
    is      => 'lazy',
    builder => sub {
        my $self = shift;
        my $http = Net::Async::HTTP->new(
            user_agent => 'Net-Async-Zitadel/' . ($self->VERSION // '0'),
        );
        $self->add_child($http);
        return $http;
    },
);

has oidc => (
    is      => 'lazy',
    builder => sub {
        my $self = shift;
        Net::Async::Zitadel::OIDC->new(
            issuer => $self->issuer,
            http   => $self->http,
        );
    },
);

has management => (
    is      => 'lazy',
    builder => sub {
        my $self = shift;
        die Net::Async::Zitadel::Error::Validation->new(
            message => 'Management API requires a token',
        ) unless $self->token;
        Net::Async::Zitadel::Management->new(
            base_url => $self->issuer,
            token    => $self->token,
            http     => $self->http,
        );
    },
);

1;

__END__