Another solution for my problem is to change DESTROY to the following:

sub DESTROY
{
  local $@;

  foo();
}
[download]

SOAP::Lite mailing list