X-Git-Url: http://git.shiar.net/perl/schtarr.git/blobdiff_plain/a6843225598eb51580b75a4131386b45e5617d4c..b08934a82682226827ca788bd143c37d8e476b53:/Games/StarCraft/DB.pm

diff --git a/Games/StarCraft/DB.pm b/Games/StarCraft/DB.pm
new file mode 100644
index 0000000..11b645e
--- /dev/null
+++ b/Games/StarCraft/DB.pm
@@ -0,0 +1,25 @@
+package Games::StarCraft::DB;
+
+use strict;
+use warnings;
+use DBIx::Simple;
+use Carp;
+use base 'DBIx::Simple';
+
+our $VERSION = '1.00';
+our @Conf;  # database connect options
+
+sub connect {
+	my $self = shift;
+	eval { require Games::StarCraft::DB::Local };  # local @Conf overrides
+	my @options = @Conf;
+	if (@_ >= 1 and ref (my $manual = shift) eq "HASH") {
+		while (my ($key, $value) = each %$manual) {
+			$options[3]->{$key} = $value;
+		}
+	}
+	return $self->SUPER::connect(@options);
+}
+
+1;
+