sub dump_and_import_schema {
my ($dsn, $user, $password) = @_;
my $attrs = {
debug => 0,
dump_directory => '.',
exclude => qr/(?^:\bBIN)/
};
my $connect_info = [ $dsn, $user, $password ];
push @$connect_info, { on_connect_do => 'PRAGMA foreign_keys = ON' };
make_schema_at( 'TDG::Schema', $attrs, $connect_info );
eval {
require TDG::Schema;
TDG::Schema->import();
1;
} or do {
my $error = $@;
croak $error;
};
$dbic_schema = TDG::Schema->connect( $dsn, $user, $password, '' );
}
####
'Can\'t locate TDG/Schema.pm in @INC (@INC contains: C:/strawberry/perl/site/lib C:/strawberry/perl/vendor/lib C:/strawberry/perl/lib) at find_num_roots.pl line 57.
##
##
sub dump_and_import_schema {
my ($dsn, $user, $password) = @_;
my $cmd = 'perl '
. File::Spec->catdir( $own_path, 'dbic_schema_dump.pl' )
. ' --dsn ' . $dsn;
$cmd .= ' --user ' . $user if $user;
$cmd .= ' --password ' . $password if $password;
$cmd .= ' --dumpdir .';
$cmd .= ' --exclude \bBIN';
system($cmd) == 0 or croak "system $cmd failed: $?";
eval {
require TDG::Schema;
...