...
  $Result = $self->{ws}->call( $Call, SOAP::Data->value( @Params ) );
  $result = $Result;

  #-- Check if had connect at server
  unless ( $Result ) {
       return undef;
  }

  #-- Check fault
  if ( $Result->fault )
       return undef;
  }

  #-- Armazena retornos da Requisicao
  $values = $Result->valueof('//' . $Call . 'Response');
...
[download]