package ISLog::Config;
use warnings;
use strict;

BEGIN {
    use Exporter();
    use vars qw( @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS );
    @ISA         = qw( Exporter );
    @EXPORT      = qw();
    @EXPORT_OK   = qw( $dbh $cgi $tt $cgv );

    %EXPORT_TAGS = (
      objects => [ qw( $dbh $cgi $tt ) ],
    );
}

use Apache::Reload;

use CGI();
use DBI;
use Template;

use vars qw( $dbh $cgi $tt $cgv );

$tt = new Template(
  INCLUDE_PATH => '/var/www/template/islog'
);
$dbh = DBI->connect(
  'dbi:mysql:host=xxx;database=xxx',
  'xxx',
  'xxx'
) or die DBI->errstr();
$cgi = new CGI();
$cgv = $cgi->Vars();

1;

##</code><code>##

use ISLog::Config qw/ :objects $cgv /;

##</code><code>##

print $cgi->header();
print "$_" for keys %$cgv;