Gestione Errori : Server

...
sub getProcess{
- my ( $self, $ticket, $name ) = @_ ;
- die _error('Client', 'Ticket Non Valido' ) unless ( validate( $ticket) );
...
sub _error($) {
- my ( $faultcode, $faultstring ) = @_;
- return SOAP::Fault
  - ->faultcode($faultcode)
->faultstring($faultstring);
}

...