История изменений
Исправление KennyMinigun, (текущая версия) :
Зачем каждый раз вычислять ref $obj?
Не намного дороже лишней переменной. given ... when не хочу использовать во благо обратной совместимости со старыми версиями perl.
Зачем использовать sprintf там, где хватит простой конкатенации?
Читабельнее, имхо. Подход однообразный, чтоб не было смеси конкатенаций и sprintf.
Исходная версия KennyMinigun, :
Зачем каждый раз вычислять ref $obj?
Не намного дороже лишней переменной. given ... when не хочу использовать во благо обратной совместимости со старыми версиями perl.
Зачем использовать sprintf там, где хватит простой конкатенации?
Читабельнее, имхо.