dbi profiling

gistfile1.txt

$dbh = DBI->connect( $DSN, $DB_USER, $DB_PASS ) || die "cannot connect to database";
$dbh->{HandleError} = sub { confess( shift ) };
$dbh->{Profile} = 31;
$DBI::Profile::ON_DESTROY_DUMP = $DBI::Profile::ON_DESTROY_DUMP = sub {
    my ( $result ) = @_;

    my $time = $1 if ( $result =~ m/DBI::Profile: ([\d\.]+?)s/ );
    return if $time and $time < 0.3;

    open my $fh, '>>', '/home/writers/sitedata/logs/db_profile.log';
    print $fh shift;
    close $fh;
};