File Coverage

blib/lib/WebService/ValidSign/API/Auth.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	26	27	96.3

our $VERSION = '0.004';
use Moo;

# ABSTRACT: Implementation of the Authentication tokens for ValidSign

use Types::Standard qw(Str);
use namespace::autoclean;

has action_endpoint => (
    is      => 'ro',
    default => 'authenticationTokens'
);

has token => (
    is        => 'rw',
    isa       => Str,
    accessor  => '_token',
    predicate => 'has_token',
);

    my $self = shift;

    if ($self->has_token) {
        return $self->_token;
    }
    else {
        return $self->_get_user_token;
    }
}

    my $self = shift;

    my $uri = $self->get_endpoint($self->action_endpoint, 'user');
    my $request = HTTP::Request->new(
        POST => $uri,
        [
            'Content-Type' => 'application/json',
            Accept         => 'application/json',
        ]
    );

    $request->header("Authorization", join(" ", "Basic", $self->secret));

    $self->_token($self->call_api($request)->{value});
    return $self->_token;
}

with "WebService::ValidSign::API";
has '+auth' => (required => 0);

__PACKAGE__->meta->make_immutable;


=pod

=encoding UTF-8

=head1 NAME

WebService::ValidSign::API::Auth - Implementation of the Authentication tokens for ValidSign

=head1 VERSION

version 0.004

=head1 SYNOPSIS

=head1 ATTRIBUTES

=head1 METHODS

=head1 AUTHOR

Wesley Schwengle <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2019 by Wesley Schwengle.

This is free software, licensed under:

  The (three-clause) BSD License

=cut