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