http://qs321.pair.com?node_id=717236


in reply to Re^4: Using a scalar as a constant?
in thread Using a scalar as a constant?

You can even do it in a strict safe manner :) 
use constant test => 5;

if(my $sub = __PACKAGE__->can('test')) {
        print $sub->(),"\n";
}

[download]

                - Ant
                - Some of my best work - (1 2 3)

In Section Seekers of Perl Wisdom