File Coverage

blib/lib/Net/Correios/Token.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch	3	6	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	31	40	77.5

use strict;
use warnings;
use Scalar::Util ();
use JSON ();

package Net::Correios::Token;

sub new {
    my ($class, $parent) = @_;

    Scalar::Util::weaken($parent);
    return bless { parent => $parent }, $class;
}

sub autentica {
    my ($self, %args) = @_;
    my $parent = $self->{parent};

    my $endpoint_url = $parent->{base_url} . 'token/v1/autentica';
    my $json_body;
    # TODO: precisamos entender quais endpoints funcionam com quais tokens.
    # muito provavelmente precisaremos de ambos ao mesmo tempo.
    if ($args{contrato}) {
        $endpoint_url .= '/contrato';
        $json_body = JSON::encode_json({ numero => $args{contrato} });
    }
    elsif ($args{cartao}) {
        $endpoint_url .= '/cartaopostagem';
        $json_body = JSON::encode_json({ numero => $args{cartao} });
    }

    my $res = $parent->{agent}->request(
        'POST',
        $endpoint_url,
        {
            headers => { 'Authorization' => 'Basic ' . $parent->{auth_basic} },
            (defined $json_body? (content => $json_body) : ()),
        },
    );
    return $parent->parse_response($res);
}

1;