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