File Coverage

blib/lib/Business/BR/CNJ/WebService.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Business::BR::CNJ::WebService;

use strict;
use utf8;
use Exporter 'import';
use SOAP::Lite;

our $VERSION = 0.03;

sub new {
 my $class = bless {}, shift;
 $class->{ws} = SOAP::Lite->new(
    proxy => 'http://www.cnj.jus.br/sgt/sgt_ws.php',
 );
 $class;
}

sub errstr { shift->{errstr} }

sub cnj_ws_call {
 my $class = shift;

 $class->{errstr} = undef;

 my $som;
 eval { $som = $class->{ws}->call( @_ ) };

 if ( $@ ) {
  $class->{errstr} = $@;
  return undef;

 } else {
  return $som->result;
 }
}

sub pesquisarItemPublicoWS {
 shift->cnj_ws_call( 'pesquisarItemPublicoWS', @_ );
}

sub getArrayDetalhesItemPublicoWS {
 shift->cnj_ws_call( 'getArrayDetalhesItemPublicoWS', @_ );
}

sub getArrayFilhosItemPublicoWS {
 shift->cnj_ws_call( 'getArrayFilhosItemPublicoWS', @_ );
}

sub getStringPaisItemPublicoWS {
 shift->cnj_ws_call( 'getStringPaisItemPublicoWS', @_ );
}

sub getComplementoMovimentoWS {
 shift->cnj_ws_call( 'getComplementoMovimentoWS', @_ );
}

sub getDataUltimaVersao {
 shift->cnj_ws_call( 'getDataUltimaVersao', @_ );
}

1;

__END__