Seth Carbon > go-db-perl > GO::DebugUtils

Download:
go-db-perl-0.04.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Source  

NAME ^

GO::DebugUtils

DESCRIPTION ^

Miscellaneous debugging utilities

FUNCTIONS ^

setsqllog

 usage:

  use GO::DebugUtils qw(:sql);
  open(MYLOGFILE, ">x.log");
  $ENV{SQL_TRACE} = 1;
  setdblog(\*MYLOGFILE);
  # ... main code here
  close(MYLOGFILE);

  defaults to STDERR

setdblog

 usage:

  use GO::DebugUtils qw(:db);
  open(MYLOGFILE, ">x.log");
  $ENV{DBLOGGING} = 1;
  setdblog(\*MYLOGFILE);
  # ... main code here
  close(MYLOGFILE);

  defaults to STDERR

setlog

 usage:

  use GO::DebugUtils qw(:general);
  open(MYLOGFILE, ">x.log");
  $ENV{MSGLOGGING} = 1;
  setdblog(\*MYLOGFILE);
  # ... main code here
  close(MYLOGFILE);

  defaults to STDERR

msglog

outputs a log message. if the environment variable MSGLOGGING is not set, this function will do nothing.

use the function setlog to set a logging file; otherwise output will default to STDERR

this is for general logging messages

usage:

  msglog("logging message");

dblog

outputs a db log message. if the environment variable DBLOGGING is not set, this function will do nothing.

use the function setdblog to set a logging file; otherwise output will default to STDERR

for consistency, this should be used to a produce a high level description of operations performed to modify the database

usage:

  dblog("add the clone and associated data");

sqllog

outputs an sql log message. if the environment variable SQL_TRACE is not set, this function will do nothing.

use the function setsqllog to set a logging file; otherwise output will default to STDERR

this should be used to produce an output of SQL commands executed

usage:

  sqllog("$sql_command");
syntax highlighting: