sub method_which_may_suicide {
    my ($self,@arglist) = @_;
    if (_should_suicide(@arglist) ) {
        undef $_[0];
    }
}