package Encoder::Config;

our $global_config_file;
my $instance;
my $called;

sub get_instance {
    my $class = shift;
    return $instance if $instance;
    my $self = {};
    bless $self, $class;
    
    my $config_file = $Encoder::Config::global_config_file;
    $config_file = '../etc/system.ini' unless $config_file;
    $self->load_config($config_file);
    $instance = $self;
    return $instance; 
}


sub set_config_file {
    my $class = shift;
    my $config_file = shift;
    return if $called;
    $Encoder::Config::global_config_file = $config_file;
    $called = 1;    
}
[download]