pbot/PBot/SQLiteLogger.pm

# File: SQLiteLogger
# Author: pragma_
#
# Purpose: Logs SQLite trace messages to Logger.pm with profiling of elapsed
# time between messages.

# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.

package PBot::SQLiteLogger;

use strict; use warnings;
use feature 'unicode_strings';

use Time::HiRes qw(gettimeofday);

sub new {
    my ($class, %conf) = @_;
    my $self = {};
    $self->{buf}       = '';
    $self->{timestamp} = gettimeofday;
    return bless $self, $class;
}

sub log {
    my $self = shift;
    $self->{buf} .= shift;

    # DBI feeds us pieces at a time, so accumulate a complete line
    # before outputing
    if ($self->{buf} =~ tr/\n//) {
        $self->log_message;
        $self->{buf} = '';
    }
}

sub log_message {
    my $self    = shift;
    my $now     = gettimeofday;
    my $elapsed = $now - $self->{timestamp};
    if ($elapsed >= 0.100) { $self->{pbot}->{logger}->log("^^^ SLOW SQL ^^^\n"); }
    $elapsed = sprintf '%10.3f', $elapsed;
    $self->{pbot}->{logger}->log("$elapsed : $self->{buf}");
    $self->{timestamp} = $now;
}

sub close {
    my $self = shift;
    if ($self->{buf}) {
        $self->log_message;
        $self->{buf} = '';
    }
}

1;