Не уверен, что это именно перезагрузка, но не знаю, как правильно назвать.
Есть довольно большая система на Perl. В системе есть модуль Navigator.pm, который используется в очень многих местах. Менять поведение модуля крайне нежелательно, т.к. нельзя предусмотреть все места, откуда он может вызываться (система периодически обновляется и не рассчитана на изменение базовых модулей).
В коде модуля есть такая функция:



По ряду причин меня эта функция не устраивает. В основном потому, что в нее не передается контекст авторизации, а я хочу добавить в модуль поведение, которое зависит от этого контекста. У меня эта функция должна выглядеть так:



Достаточно ли такой подстраховки?

________________________
Мы смотрим с оптимизмом...
...в оптический прицел.

Собственно это продолжение темы http://www.sql.ru/forum/894357
Решение работает, но мне оно не нравится, в основном по причине того, что я ориентируюсь на число аргументов (если мне нужно будет кроме $auth передать еще какие-то аргументы, то это сделать не получится).
Можно ли как-то проверить тип аргумента, желательно узнать его класс? Контекст авторизации в коде обычно создается примерно так: $auth = new Operator::Auth(...).