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


line stmt bran cond sub pod time code
1             package WWW::Correios::SIGEP::LogisticaReversa;
2 2     2   16 use strict;
  2         6  
  2         69  
3 2     2   11 use warnings;
  2         4  
  2         48  
4 2     2   904 use WWW::Correios::SIGEP::Common;
  2         26  
  2         641  
5              
6             sub new {
7 3     3 1 11 my ($class, $params) = @_;
8 3 50 33     29 $params = {} unless $params && ref $params eq 'HASH';
9              
10 3 100       9 if ($params->{sandbox}) {
11 2         8 $params->{target} = 'http://webservicescolhomologacao.correios.com.br/ScolWeb/WebServiceScol?wsdl';
12              
13             # na sandbox, Correios nos instruem a ignorar configurações do cliente e usar essas:
14 2         7 $params->{usuario} = '60618043';
15 2         6 $params->{senha} = '8o8otn';
16             # cod_administrativo: 08082650
17             # contrato: 9912208555
18             # cod_servico: 41076
19             # cartao: 0057018901
20 2         7 $params->{wsdl_local_file} = 'sandbox/scol.wsdl';
21             }
22             else {
23 1         5 $params->{target} = 'http://webservicescol.correios.com.br/ScolWeb/WebServiceScol?wsdl';
24 1         3 $params->{wsdl_local_file} = 'live/scol.wsdl';
25             }
26              
27 3         18 WWW::Correios::SIGEP::Common::build_transport($params);
28 3         23 return bless $params, $class;
29             }
30              
31             sub solicitar_postagem_reversa {
32 0     0 1   my ($self, $params) = @_;
33              
34 0           return WWW::Correios::SIGEP::Common::call(
35             $self,
36             'solicitarPostagemReversa',
37             $params,
38             );
39             }
40              
41             sub cancelar_pedido {
42 0     0 1   my ($self, $params) = @_;
43              
44             return WWW::Correios::SIGEP::Common::call(
45             $self,
46             'cancelarPedido',
47             +{
48             usuario => $self->{usuario} || '',
49 0   0       senha => $self->{senha} || '',
      0        
50             %$params
51             }
52             );
53             }
54              
55             sub acompanhar_pedido {
56 0     0 1   my ($self, $params) = @_;
57              
58             return WWW::Correios::SIGEP::Common::call(
59             $self,
60             'acompanharPedido',
61             +{
62             usuario => $self->{usuario} || '',
63 0   0       senha => $self->{senha} || '',
      0        
64             %$params
65             }
66             );
67             }
68              
69             42;
70             __END__