monsieur_champs has asked for the wisdom of the Perl Monks concerning the following question:
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;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: A gentle soul to verify a Config::Simple based object?
by fglock (Vicar) on Sep 28, 2004 at 20:21 UTC | |
by monsieur_champs (Curate) on Sep 28, 2004 at 20:50 UTC | |
by jfroebe (Parson) on Sep 28, 2004 at 21:26 UTC | |
|
Re: A gentle soul to verify a Config::Simple based object?
by VSarkiss (Monsignor) on Sep 28, 2004 at 19:49 UTC | |
by monsieur_champs (Curate) on Sep 28, 2004 at 19:57 UTC |