Log::Dispatch::DBI(3)

NAME
Log::Dispatch::DBI - Class for logging to database via DBI interface

SYNOPSIS
  use Log::Dispatch::DBI;

  my $log = Log::Dispatch::DBI->new(
      name       => 'dbi',
      min_level  => 'info',
      datasource => 'dbi:mysql:log',
      username   => 'user',
      password   => 'password',
      table      => 'logging',
  );

  # Or, if your handle is alreaady connected
  $log = Log::Dispatch::DBI->new(
      name => 'dbi',
      min_level => 'info',
      dbh  => $dbh,
  );

  $log->log(level => 'emergency', messsage => 'something BAD happened');

DESCRIPTION
Log::Dispatch::DBI is a subclass of Log::Dispatch::Output, which inserts logging output into relational database using DBI interface.

METHODS

new
      $log = Log::Dispatch::DBI->new(%params);

    This method takes a hash of parameters. The following options are valid:

-- name, min_level, max_level, callbacks
    Same as various Log::Dispatch::* classes.

-- dbh
    Database handle where Log::Dispatch::DBI throws log message.

-- datasource, username, password
    If database connection is not yet established, put the DSN, username and password for DBI connect method. Destructor method of Log::Dispatch::DBI disconnects database handle, if the handle is made inside by these parameters. (The method does not disconnect the handle if it's supplied with "dbh" parameter.)

-- table
    Table name for logging. default is log.

log_message
    inherited from Log::Dispatch::Output.

TABLE SCHEMA
Maybe something like this for MySQL.

  CREATE TABLE log (
      id        int unsigned NOT NULL PRIMARY KEY AUTO_INCREMENT,
      level     varchar(9) NOT NULL,
      message   text NOT NULL,
      timestamp timestamp
  );

For example,

  $log->log(level => 'info', message => 'too bad');

will execute the following SQL:

  INSERT INTO log (level, message) VALUES ('info', 'too bad');

If you change this behaviour, what you should do is to subclass Log::Dispatch::DBI and override "create_statement" and "log_message" method.

AUTHOR
Tatsuhiko Miyagawa <miyagawa@bulknews.net>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO
Log::Dispatch, DBI, Log::Dispatch::Config