view release on metacpan or  search on metacpan

bin/pg_tapgen  view on Meta::CPAN

        '-exitval' => 0,
    )
}

if ($opts->{version}) {
    print 'pg_prove ', main->VERSION, "\n";
    exit;
}

# Function to write a test script.
sub script(&;$) {
    my ($code, $fn) = @_;
    my $file = File::Spec->catfile($opts->{directory}, $fn);
    my $orig_fh = select;

    my $output;
    open my $str_fh, '>:encoding(UTF-8)', \$output;
    select $str_fh;
    my $saved_total_tests = $total_tests;
    $total_tests = 0;
    $code->();