12345678910 ### environment specific configuse File::Spec;use File::Basename 'dirname';my $basedir = File::Spec->rel2abs( File::Spec->catdir( dirname(__FILE__), '..', '..' ));+{ %{ do(File::Spec->catfile($basedir, 'etc', 'conf', 'common.pl')) }, envname => 'production',};
### environment specific config
use
File::Spec;
File::Basename
'dirname'
;
my
$basedir
= File::Spec->rel2abs(
File::Spec->catdir( dirname(__FILE__),
'..'
,
)
);
+{
%{
do
(File::Spec->catfile(
'etc'
'conf'
'common.pl'
)) },
envname
=>
'production'
};