Здравствуйте, уважаемые знатоки языка программирования perl.
Не могли бы просвятить меня, как работает этот код, конкретно вот эта строка:  

*{"${pkg}::$con"} = sub () { $CONSTANTS{$con} }



Сам код взят отсюда

В принципе со всем разобрался, даже понял что caller это функция, понял какие хэши создаются, какие у них значения, узнал как работает import, в общем почти во всем разобрался, кроме звезды. Подскажите, пожалуйста, для чего она (здесь) нужна?

константы заводит, грубо говоря

звезда - это ссылка на тип GLOB. Довольно странный тип в перле. Он (чаще всего) используется он алиаса.

эквивалентно


а вот этот код делает алиас для переменной $xxx с именем bla.

т.е. bla и xxx - это теперь одна и та же переменная, но у нее два имени - bla и xxx

Спасибо, что навели. 
GLOB - и правда сложный для понимания тип в перле...