File Coverage

blib/lib/WWW/Correios/SIGEP/LogisticaReversa.pm

Criterion	Covered	Total	%
statement	20	26	76.9
branch	3	4	75.0
condition	1	11	9.0
subroutine	4	7	57.1
pod	4	4	100.0
total	32	52	61.5

package WWW::Correios::SIGEP::LogisticaReversa;
use strict;
use warnings;
use WWW::Correios::SIGEP::Common;

sub new {
    my ($class, $params) = @_;
    $params = {} unless $params && ref $params eq 'HASH';

    if ($params->{sandbox}) {
        $params->{target} = 'http://webservicescolhomologacao.correios.com.br/ScolWeb/WebServiceScol?wsdl';

        # na sandbox, Correios nos instruem a ignorar configurações do cliente e usar essas:
        $params->{usuario} = '60618043';
        $params->{senha}   = '8o8otn';
        # cod_administrativo: 08082650
        # contrato: 9912208555
        # cod_servico: 41076
        # cartao: 0057018901
        $params->{wsdl_local_file} = 'sandbox/scol.wsdl';
    }
    else {
        $params->{target} = 'http://webservicescol.correios.com.br/ScolWeb/WebServiceScol?wsdl';
        $params->{wsdl_local_file} = 'live/scol.wsdl';
    }

    WWW::Correios::SIGEP::Common::build_transport($params);
    return bless $params, $class;
}

sub solicitar_postagem_reversa {
    my ($self, $params) = @_;

    return WWW::Correios::SIGEP::Common::call(
        $self,
        'solicitarPostagemReversa',
        $params,
    );
}

sub cancelar_pedido {
    my ($self, $params) = @_;

    return WWW::Correios::SIGEP::Common::call(
        $self,
        'cancelarPedido',
        +{
            usuario => $self->{usuario} || '',
            senha   => $self->{senha}   || '',
            %$params
        }
    );
}

sub acompanhar_pedido {
    my ($self, $params) = @_;

    return WWW::Correios::SIGEP::Common::call(
        $self,
        'acompanharPedido',
        +{
            usuario => $self->{usuario} || '',
            senha   => $self->{senha}   || '',
            %$params
        }
    );
}

42;
__END__