sub bar
{
  my( $self, @args )= @_;
  eval { $self->method( @args ); 1} 
       or $self->raise_error( $@, @_ ) and return undef;
}