in reply to How Constant pragma works with multi constants

Take a look at the source code for the constant pragma. 
perldoc -m constant

[download]

In Section Seekers of Perl Wisdom