File Coverage

blib/lib/Log/Dispatch/DBI.pm

Criterion	Covered	Total	%
statement	15	37	40.5
branch	0	6	0.0
condition	0	8	0.0
subroutine	5	10	50.0
pod	2	3	66.6
total	22	64	34.3

package Log::Dispatch::DBI;

use strict;
use vars qw($VERSION);
$VERSION = 0.02;

use Log::Dispatch 2.00;
use base qw(Log::Dispatch::Output);

use DBI;

sub new {
    my($proto, %params) = @_;
    my $class = ref $proto || $proto;

    my $self = bless {}, $class;
    $self->_basic_init(%params);
    $self->_init(%params);

    return $self;
}

sub _init {
    my $self = shift;
    my %params = @_;

    # set parameters
    if ($params{dbh}) {
	$self->{dbh} = $params{dbh};
    } else {
	$self->{dbh} = DBI->connect(@params{qw(datasource username password)})
	    or die $DBI::errstr;
	$self->{_mine} = 1;
    }

    $self->{table} = $params{table} || 'log';
    $self->{sth} = $self->create_statement;
}

sub create_statement {
    my $self = shift;
    return $self->{dbh}->prepare(<<"SQL");
INSERT INTO $self->{table} (level, message) VALUES (?, ?)
SQL
    ;
}

sub log_message {
    my $self = shift;
    my %params = @_;
    $self->{sth}->execute(@params{qw(level message)});
}

sub DESTROY {
    my $self = shift;
    if ($self->{_mine} && $self->{dbh}) {
	$self->{dbh}->disconnect;
    }
}

1;
__END__