NAME
DBIx::Class::QueryLog::Tee - Log to multiple QueryLogs at a time
VERSION
version 0.001000
SYNOPSIS
my $ql = DBIx::Class:::QueryLog->new;
$schema->storage->debugobj(
DBIx::Class:::QueryLog::Tee->new(
loggers => {
'1-original' => $schema->storage->debugobj,
'2-current' => $ql,
},
),
);
Now all queries should be logged to both loggers.
DESCRIPTION
Sometimes you want to see what queries you are running without having to
look at database logs or the console that your app is running on (if it
even is running on a console.) But what if you want to add tooling to,
eg, count queries per web request, and also see the queries being run on
the console? This module solves that problem.
Fundamentally it has a HashRef of logger objects, and passes all of the
logging commands through, in the order of the keys. So if you need a
logger to be first, make sure it has the "earliest" key.
METHODS
"new"
Optionally takes a "loggers" hashref. The values must each be a
"LOGGER".
"add_logger"
Takes a name and a "LOGGER". Throws an exception if there is already a
logger with the passed name.
"remove_logger"
Takes a name. Throws an exception if there is no logger with the passed
name.
"replace_logger"
Takes a name and a "LOGGER". Will replace a logger with the same name,
or just add it if there wasn't already one there.
LOGGER
A logger is defined as an object that has the following methods:
txn_begin txn_commit txn_rollback
svp_begin svp_release svp_rollback
query_start query_end
AUTHOR
Arthur Axel "fREW" Schmidt <
[email protected]>
COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
