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; ...