view release on metacpan or  search on metacpan

xt/mysql.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Requires 'DBI', 'Test::mysqld';

use Devel::KYTProf;
local $ENV{ANSI_COLORS_DISABLED} = 1;

sub prof(&) {
    my $code = shift;
    my $buffer = '';
    open my $fh, '>', \$buffer or die "Could not open in-memory buffer";
    local *STDERR = $fh;
    $code->();
    close $fh;
    $buffer;
}

Devel::KYTProf->mute($_) for qw/DBI DBI::st DBI::db/;