File Coverage

blib/lib/Net/Correios/Prepostagens.pm

Criterion	Covered	Total	%
statement	19	56	33.9
branch	1	12	8.3
condition	0	8	0.0
subroutine	5	11	45.4
pod	0	8	0.0
total	25	95	26.3

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

package Net::Correios::Prepostagens;

sub new {
    my ($class, $parent) = @_;
    Scalar::Util::weaken($parent);
    return bless { parent => $parent }, $class;
}

sub criar {
    my ($self, $args) = @_;
    die 'criar() espera uma sequencia de parametros' unless $args;

    #my $args = {@args}; # <-- FIXME olha Preco.pm, permitir varios!
    my $parent = $self->{parent};

    # fazemos o pedido do token antes para garantirmos que temos
    # os dados de contrato e DR dentro do objeto. É no-op se já fez.
    $parent->access_token('cartao');

    my $request_data = $args;

    my $res = $parent->make_request(
        'cartao',
        'POST',
        'prepostagem/v1/prepostagens',
        { content => JSON::encode_json($request_data) }
    );
    return $parent->parse_response($res);
}

sub emitir_rotulo {
    my ($self, $params) = @_;
    die 'emitir_rotulo() espera uma sequencia de parametros' unless $params;
    die 'emitir_rotulo() precisa de hashref com pelo menos o id' unless $params->{id};

    #my $args = {@args}; # <-- FIXME olha Preco.pm, permitir varios!
    my $parent = $self->{parent};

    # fazemos o pedido do token antes para garantirmos que temos
    # os dados de contrato e DR dentro do objeto. É no-op se já fez.
    $parent->access_token('cartao');

    my $request_data = {
        tipoRotulo => $params->{tipo_rotulo} // 'P', # P(adrao) ou R(eduzido)
        formatoRotulo => $params->{formato_rotulo} // 'ET', # ET(iqueta) ou EV(elope)
        imprimeRemetente => $params->{imprime_remetente} // 'N', # S(im) ou N(ao)
        idsPrePostagem => [$params->{id}],
        layoutImpressao => $params->{layout_impressao} // 'PADRAO', # PADRAO, LINEAR_100_150, LINEAR_100_80, LINEAR_A4. Default PADRAO.
    };

    my $res = $parent->make_request(
        'cartao',
        'POST',
        'prepostagem/v1/prepostagens/rotulo/assincrono/pdf',
        { content => JSON::encode_json($request_data) }
    );
    return $parent->parse_response($res);
}

sub obter_rotulo_emitido {
    my ($self, $id) = @_;
    die 'obter_rotulo_emitido() espera um rotulo' unless $id;

    #my $args = {@args}; # <-- FIXME olha Preco.pm, permitir varios!
    my $parent = $self->{parent};

    # fazemos o pedido do token antes para garantirmos que temos
    # os dados de contrato e DR dentro do objeto. É no-op se já fez.
    $parent->access_token('cartao');

    my $res = $parent->make_request(
        'cartao',
        'GET',
        'prepostagem/v1/prepostagens/rotulo/download/assincrono/' . $id,
    );
    return $parent->parse_response($res);
}


sub cancelar {
    my ($self, $id) = @_;
    die 'cancelar() espera um rotulo' unless $id;

    #my $args = {@args}; # <-- FIXME olha Preco.pm, permitir varios!
    my $parent = $self->{parent};

    # fazemos o pedido do token antes para garantirmos que temos
    # os dados de contrato e DR dentro do objeto. É no-op se já fez.
    $parent->access_token('cartao');

    my $res = $parent->make_request(
        'cartao',
        'DELETE',
        'prepostagem/v1/prepostagens/' . $id,
        {}
    );
    return $parent->parse_response($res);
}

sub consulta {
    my ($self, $rastreio) = @_;

    my $parent = $self->{parent};

    # fazemos o pedido do token antes para garantirmos que temos
    # os dados de contrato e DR dentro do objeto. É no-op se já fez.
    $parent->access_token('cartao');

    my $res = $parent->make_request(
        'cartao',
        'GET',
        'prepostagem/v1/prepostagens/postada?codigoObjeto=' . $rastreio
    );
    return $parent->parse_response($res);
}

sub declaracao_conteudo {
    my ($self, $id) = @_;
    my $parent = $self->{parent};

    # fazemos o pedido do token antes para garantirmos que temos
    # os dados de contrato e DR dentro do objeto. É no-op se já fez.
    $parent->access_token('cartao');

    my $request_data = {
        idsPrePostagens => [$id],
        tipoDace => 'C'
    };
    my $res = $parent->make_request(
        'cartao',
        'POST',
        'prepostagem/v1/prepostagens/dce/dace/impressao',
        { content => JSON::encode_json($request_data) }
    );
    return $parent->parse_response($res);
}

sub aviso_recebimento {
    my ($self, $id) = @_;
    die 'aviso_recebimento() espera um id de prepostagem' unless $id;

    my $parent = $self->{parent};

    # fazemos o pedido do token antes para garantirmos que temos
    # os dados de contrato e DR dentro do objeto. É no-op se já fez.
    $parent->access_token('cartao');

    my $res = $parent->make_request(
        'cartao',
        'GET',
        'prepostagem/v1/prepostagens/avisorecebimento/' . $id
    );
    return $parent->parse_response($res);
}

1;