}
sub setup_database {
- my ($self, $config, $namespace, $dsn) = @_;
+ my ($self, $config, $namespace, $dsn, $u, $p) = @_;
$config->{dsn} = $dsn;
$config->{loader} = Class::DBI::Loader->new(
namespace => $namespace,
- dsn => $dsn
+ dsn => $dsn,
+ user => $u,
+ password => $p,
);
$config->{classes} = [ $config->{loader}->classes ];
$config->{tables} = [ $config->{loader}->tables ];