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};
}