2 # The master SQL module
6 # Copyright (c) 2006 Dirk Koopman G1TLH
13 use vars qw($VERSION $BRANCH);
14 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
15 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
16 $main::build += $VERSION;
17 $main::branch += $BRANCH;
23 return $active if $active;
41 return undef unless $active;
43 my ($style) = $dsn =~ /^dbi:(\w+):/;
44 my $newclass = "DXSql::$style";
45 eval "require $newclass";
50 return bless {}, $newclass;
63 $dbh = DBI->connect($dsn, $user, $passwd);
76 $self->{dbh}->disconnect;