[Moscow.pm] wtf or not ?

[Ivan B. Serezhkin]

Привет.

package CFG;
our $AUTOLOAD;
our $cfg= { HUGE HASH };

sub AUTOLOAD {
my $key=shift;
my $m=$AUTOLOAD;
$m=~s/.*:://;
$key=$cfg if $key eq __PACKAGE__;
$key=$key->{$m};
return (ref $key) ? bless $key : $key;
}

sub DESTROY {
}

-- 
Ivan B. Serezhkin