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

##</code><code>##

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