sub def_or_die
{
    my ($v,$msg)=@_;
    return def_or_call($v,sub {
        require Carp;
        die Carp::some_magic_helper_function($msg);
    });
}