{   
    $SIG{__DIE__}
      = sub { ok (1 == 1, "if the thing with the guy in the place, we croak"); };

    # $obj->blah() croaks() guaranteed, but it creates a 
    # temp object of its own class, which has eval() and
    # clobbers $@, so $@ is always '' when things return
    # back to the test 

    eval { $obj->blah(do_this => 1); }; 
}