Select Code to Download

  ## names of modules/subs changed for convenience...
  package MySOAP;
...
        die $err; ## reraise so SOAP->fault returns true
     }
   }

   ## I really didn't want to subclass DBI, so I just
   ## encapsulate a database handle and proxy all
...
   }

   1;

 1:  package Foo;
 2:  sub DESTROY
...
13:  if( $@ ) {
14:     die $@;
15:  }

   ## with local $@
   me@myhost> perl ~/test.pl; echo $?
...
   ## without local $@
   me@myhost> perl ~/test.pl; echo $?
   0