my $obj = Some::Object->new()
  or die "Couldn't create Some::object - $!\n";

##</code><code>##

package Some::Object;

use base 'Ekahau::ErrHandler';

sub new
{
    my $class = shift;
    my(%p) = @_;
    
    my $self = {};
    bless $self,$class;
    $self->{_errhandler} =
      Ekahau::ErrHandler->errhandler_new($class,%p);

    return $self->reterr("An error happened")
      if ($error_happened);

    $self->errhandler_constructed();
}

sub ERROBJ
{
    my $self = shift;
    $self->{_errhandler};
}

##</code><code>##

  my $obj = Some::Object->new()
    or die "Couldn't create Some::Object - ".Some::Object->lasterr;
  $obj->method_call()
    or die "Couldn't method_call $obj - ".$obj->lasterr;

##</code><code>##

  my $err;
  my $obj = Some::Object->new(ErrorHolder => \$err)
    or die "Couldn't create Some::Object - $err\n";
  $obj->method_call
    or die "Couldn't method_call $obj - $err\n";

##</code><code>##

  Ekahau::ErrHandler->set_errhandler(sub { die @_ } );