view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    Pg  =>  '',
    mysql => '',
);
    
if($build->feature('Pg')) {
    $test_opts{Pg} =
        $build->y_n("Do you want to run the PostgreSQL tests? (y/n)", "n");
}

if($test_opts{Pg}) {
    my $user = scalar getpwuid($<);
    $test_opts{Pg_host} = $build->prompt(
        " Postgres server hostname (leave blank to use local socket):"
    );
    
    if($test_opts{Pg_host}) {
        $test_opts{Pg_port} = $build->prompt(
            " Postgres server port (leave blank to use default):"
        );
    }
    

Build.PL  view on Meta::CPAN

    );
}

if($build->feature('mysql')) {
    $test_opts{mysql} = $build->y_n(
        "Do you want to run the MySQL tests? (y/n)", "n"
    );
}

if($test_opts{mysql}) {
    my $user = scalar getpwuid($<);
    $test_opts{mysql_host} = $build->prompt(
        " MySQL server hostname (leave blank to use local socket):"
    );
    if($test_opts{mysql_host}) {
        $test_opts{mysql_port} = $build->prompt(
            " MySQL server port (leave blank to use default):"
        );
    }
    $test_opts{mysql_db} = $build->prompt(" Name of database to use", 'test');
    $test_opts{mysql_user} = $build->prompt(