DBIx::DataSource::Driver (3pm)

  perldoc DBIx::DataSource::Driver;

  or

  package DBIx::DataSource::FooBase;
  use DBIx::DataSource::Driver;
  @ISA = qw( DBIx::DataSource::Driver );

To implement a driver for your database:

1) If you can create a database with an \s-1SQL\s0 command through \s-1DBI/DBD\s0, simply

   provide a parse_dsn class method which returns a list consisting of the
   *actual* data source to use in \s-1DBI-\s0>connect and the \s-1SQL\s0.

package DBIx::DataSource::NewDatabase; use DBIx::DataSource::Driver; @ISA = qw( DBIx::DataSource::Driver );

sub parse_dsn { my( $class, $action, $dsn ) = @_;

# $action is `create' or `drop' # for example, if you parse parse $dsn for $database, # $sql = "$action $database";

# you can die on errors - it'll be caught

( $new_dsn, $sql ); }

2) Otherwise, you'll need to write create_database and drop_database

   class methods.

package DBIx::DataSource::NewDatabase;

sub create_database { my( $class, $dsn, $user, $pass ) = @_;

# for success, return true # for failure, die (it'll be caught) }

sub drop_database { my( $class, $dsn, $user, $pass ) = @_;

# for success, return true # for failure, die (it'll be caught) }

Ivan Kohler <[email protected]>

Copyright (c) 2000 Ivan Kohler Copyright (c) 2000 Mail Abuse Prevention System \s-1LLC\s0 All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

DBIx::DataSource, DBIx::DataSource::mysql, DBIx::DataSource::Pg, \s-1DBI\s0