Help for this page

Select Code to Download

Select or download this

package My::Singleton;

...
sub _init { 
    $DATA = { foo => 42 };
}