perl - 制作 warnings::warnif 报告调用站点而不是调用者

Question

warnings::warnif 从调用者的角度报告(如 carp，它在内部使用)。我希望它从本地调用框架的角度进行报告(如 warn)。虽然 Carp 具有不从某些包的角度报告警告的机制，但似乎没有办法反过来告诉它它应该报告来自特定视角。

或者，是否有办法使 warnings::warnif 与 warn 不包含以换行符结尾的消息的位置信息的行为相匹配？我宁愿没有位置，也不愿有误导性的位置。

避免这是 X Y problem 的上下文

我有一个使用 warnings::register 的特定于应用程序的模块，这样我就可以从主脚本控制对其警告的处理。默认情况下，它们被提升为 FATAL，但用户可以覆盖它并“强制”程序继续。最初我在模块中使用了 die 并有条件地覆盖了主脚本中的 CORE::GLOBAL::die 以发出警告。我切换到 warnings::register 因为覆盖 die 是笨拙的、不灵活的并且容易出错。

Answer 1

die("msg") if warnings::fatal_enabled();
warn("msg") if warnings::enabled();