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;