File Coverage

blib/lib/Net/Correios/Token.pm

Criterion	Covered	Total	%
statement	23	28	82.1
branch	4	10	40.0
condition	0	3	0.0
subroutine	6	6	100.0
pod	0	2	0.0
total	33	49	67.3

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) : ()),
        },
    );
    if ($parent->{debug}) {
        $parent->_debug(
            "curl -X POST '$endpoint_url' -H 'accept: application/json' -H 'Content-Type: application/json' -H 'Authorization: Basic $parent->{auth_basic}' " . ((defined $json_body && length($json_body)) ? ("-d '" . $json_body . "'") : ''),
            "Response: " . $res->{status} . "\n" . $res->{content}
        );
    }
    return $parent->parse_response($res);
}

1;