Help for this page
use constant VALUE => 1;
package A; use strict; ... *{"A::VALUE"} = sub () { 2 }; A->func();