view release on metacpan or  search on metacpan

erecipes/perl/bin/startup.pl  view on Meta::CPAN

package ourobscurepackage;
BEGIN {
    $ENV{SITE_ROOT}= "/opt/apache2/htdocs/recipes/";
}
die "I refuse to work without mod_perl!" unless exists $ENV{MOD_PERL};
use utf8;
use strict;
use warnings;
use lib  $ENV{SITE_ROOT} . "/perl/lib";
use CGI::Ex;
use CGI::Ex::Conf;
use Template::Alloy;
use CGI::Ex::Recipes;
our %CACHE_HASH = ();
use CGI::Ex::Recipes::Cache;
use CGI::Ex::Recipes::Template::Menu;

our $conf_obj = CGI::Ex::Conf->new({'paths'=>[$ENV{SITE_ROOT}],'directive'=>'MERGE'});
our $conf = $conf_obj->read($ENV{SITE_ROOT} .'/conf/Recipes.conf');
    $conf->{base_dir_abs} = $ENV{SITE_ROOT};
    $conf->{template_args}{INCLUDE_PATH} = $ENV{SITE_ROOT};
our $template_obj = Template::Alloy->new($conf->{template_args});
our $dbh = DBI->connect_cached(
               'dbi:SQLite:dbname=' . $ENV{SITE_ROOT} . '/' . $conf->{'db_file'}, '', '', 
               {'private_'. __PACKAGE__ => __PACKAGE__ , RaiseError => 1}
           );
our $cache_obj = CGI::Ex::Recipes::Cache->new({cache_hash =>\%CACHE_HASH, dbh=>$dbh });
1;