dsn => "dbi:mysql:dbname",
user => "root",
password => "",
- namespace => "My",
additional_classes => [qw/DBIx::Class::Foo/],
additional_base_classes => [qw/My::Stuff/],
left_base_classes => [qw/DBIx::Class::Bar/],
die qq/dsn argument is required/ if ! $args{dsn};
- $args{namespace} ||= $class;
- $args{namespace} =~ s/(.*)::$/$1/;
-
my $dsn = $args{dsn};
my ($driver) = $dsn =~ m/^dbi:(\w*?)(?:\((.*?)\))?:/i;
$driver = 'SQLite' if $driver eq 'SQLite2';