1 package Games::StarCraft::DB;
7 use base 'DBIx::Simple';
10 our @Conf; # database connect options
14 eval { require Games::StarCraft::DB::Local }; # local @Conf overrides
16 if (@_ >= 1 and ref (my $manual = shift) eq "HASH") {
17 while (my ($key, $value) = each %$manual) {
18 $options[3]->{$key} = $value;
21 return $self->SUPER::connect(@options);