use YAML::XS;
local $YAML::XS::DumpCode=1;
...
Я получить предупреждение:
Name "YAML::XS::DumpCode" used only once: possible typo at ..
Ну, я знаю, что могу подавить это конкретное предупреждение, но это некрасиво. Я что-то не так делаю? Меня не предупреждали:)