File Coverage

blib/lib/WWW/Zitadel.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	4	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	33	34	97.0

package WWW::Zitadel;

# ABSTRACT: Perl client for Zitadel identity management (OIDC + Management API)

use Moo;
use WWW::Zitadel::OIDC;
use WWW::Zitadel::Management;
use WWW::Zitadel::Error;
use namespace::clean;

our $VERSION = '0.001';

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

sub BUILD {
    my $self = shift;
    die WWW::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 oidc => (
    is      => 'lazy',
    builder => sub {
        WWW::Zitadel::OIDC->new(issuer => $_[0]->issuer);
    },
);

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

1;

__END__