Fellows, this piece of code is getting me nutz.
I'm quite sure that this is an unsignificant error (maybe concept?) somewhere.
If you're a gentle soul (or is just interested), and can understand this, please make me a favor and double check it for me?
package RCB::Config;
use strict;
use warnings;
use base qw(Config::Simple Class::Singleton);
use constant CONFIG_FILE => '../etc/application.conf';
sub _new_instance{
my $class = shift;
die "Config file not found!"
unless -f CONFIG_FILE;
return ( new RCB::Config( CONFIG_FILE )
or die RCB::Config->error()
);
}
1;