The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl

use strict;
use warnings;

use DBIx::Class::Schema::Loader 'make_schema_at';

use Business::Cart::Generic::Util::Config;

# -----------------------------------------------

my($config) = Business::Cart::Generic::Util::Config -> new -> config;

make_schema_at
(
	'Business::Cart::Generic::Schema',
	{
		dump_directory     => './lib',
		skip_load_external => 1,
	},
	[
		$$config{dsn}, $$config{username}, $$config{password},
	],
);