package FormValidator; use strict; use warnings; my %conf;#{app_id1=>conf1,app_id2=>conf2} sub new { my ($class,$conf,$app_id) = @_ $app_id = $ENV{APP_ID} unless defined $app_id; $conf{$app_id} = $conf if defined $conf; return bless $conf{$app_id}, $class; }