1 files changed, 78 insertions, 0 deletions
diff --git a/DataSource/mysql.pm b/DataSource/mysql.pm
new file mode 100644
index 0000000..f049e0a
--- /dev/null
+++ b/DataSource/mysql.pm
@@ -0,0 +1,78 @@
+package DBIx::DataSource::mysql;
+
+use strict;
+use vars qw($VERSION @ISA);
+use DBIx::DataSource::Driver;
+@ISA = qw( DBIx::DataSource::Driver );
+
+$VERSION = '0.01';
+
+=head1 NAME
+
+DBIx::DataSource::mysql - MySQL driver for DBIx::DataSource
+
+=head1 SYNOPSIS
+
+  use DBIx::DataSource;
+
+  use DBIx::DataSource qw( create_database drop_database );
+
+  create_database( "dbi:mysql:$database", $username, $password )
+    or warn $DBIx::DataSource::errstr;
+
+  create_database( "dbi:mysql:database=$database;host=$hostname;port=$port",
+                   $username, $password )
+    or warn $DBIx::DataSource::errstr;
+
+  drop_database( "dbi:mysql:$database", $username, $password )
+    or warn $DBIx::DataSource::errstr;
+
+  drop_database( "dbi:mysql:database=$database;host=$hostname;port=$port",
+                  $username, $password )
+    or warn $DBIx::DataSource::errstr;
+
+=head1 DESCRIPTION
+
+This is the MySQL driver for DBIx::DataSource.
+
+=cut
+
+sub parse_dsn {
+  my( $class, $action, $dsn ) = @_;
+  $dsn =~ s/^(dbi:(\w*?)(?:\((.*?)\))?:)//i #nicked from DBI->connect
+                        or '' =~ /()/; # ensure $1 etc are empty if match fails
+  my $prefix = $1 or die "can't parse data source: $dsn";
+
+  my $database;
+  if ( $dsn =~ s/(^|[;:])(db|dbname|database)=([^=:;]+)([;:]|$)/$1$2=$4/ ) {
+    $database = $3;
+  } else {
+    $database = $dsn;
+    $dsn = '';
+  }
+
+  ( "$prefix$dsn", "\U$action\E DATABASE $database" );
+}
+
+=head1 AUTHOR
+
+Ivan Kohler <ivan-dbix-datasource@420.am>
+
+=head1 COPYRIGHT
+
+Copyright (c) 2000 Ivan Kohler
+Copyright (c) 2000 Mail Abuse Prevention System LLC
+All rights reserved.
+This program is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=head1 BUGS
+
+=head1 SEE ALSO
+
+L<DBIx::DataSource::Driver>, L<DBIx::DataSource>, L<DBD::mysql>, L<DBI>
+
+=cut 
+
+1;
+