The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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 <frioux+cpan@gmail.com>

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.