Select Code to Download

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

package Some::Object;

...
    my $self = shift;
    $self->{_errhandler};
}

  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;

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

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