Encoder::Config::set_config_file($config_file); my $config_obj = Encoder::Config::get_instance; #### package Encoder::Config; my $global_config_file; my $called; my $instance = undef; sub get_instance { my $default_config_file = '../etc/system.ini'; return $instance if defined $instance; $instance = {}; bless $instance; if ($global_config_file) { $instance->load_config($global_config_file); } else { $instance->load_config($default_config_file); } return $instance; } sub set_config_file { $global_config_file = shift; return if $called; $called = 1; }