Select Code to Download

sub dump_and_import_schema {
    my ($dsn, $user, $password) = @_;
...
    $dbic_schema = TDG::Schema->connect( $dsn, $user, $password, '' );

}

'Can\'t locate TDG/Schema.pm in @INC (@INC contains: C:/strawberry/per
+l/site/lib C:/strawberry/perl/vendor/lib C:/strawberry/perl/lib) at f
+ind_num_roots.pl line 57.

sub dump_and_import_schema {
    my ($dsn, $user, $password) = @_;
...
    eval {
        require TDG::Schema;
...