NAME

DBIx::Class::QueryLog::Analyzer - Query Analysis

SYNOPSIS

Analyzes the results of a QueryLog. Create an Analyzer and pass it the QueryLog:

    my $schema = ... # Get your schema!
    my $ql = new DBIx::Class::QueryLog();
    $schema->storage->debugobj($ql);
    $schema->storage->debug(1);
    ... # do some stuff!
    my $ana = new DBIx::Class::QueryLog::Analyzer({ querylog => $ql });
    my @queries = $ana->get_sorted_queries();
    # or...
    my $totaled = $ana->get_totaled_queries();

METHODS

new

Create a new DBIx::Class::QueryLog::Analyzer

get_sorted_queries

Returns a list of all Query objects, sorted by elapsed time (descending).

get_totaled_queries

Returns hashref of the queries executed, with same-SQL combined and totaled. So if the same query is executed multiple times, it will be combined into a single entry. The structure is:

    $var = {
        'SQL that was EXECUTED' => {
            count           => 2,
            time_elapsed    => 1931,
            queries         => [
                DBIx::Class::QueryLog...,
                DBIx::Class::QueryLog...
            ]
        }
    }

This is useful for when you've fine-tuned individually slow queries and need to isolate which queries are executed a lot, so that you can determine which to focus on next.

To sort it you'll want to use something like this (sorry for the long line, blame perl...):

    my $analyzed = $ana->get_totaled_queries();
    my @keys = reverse sort {
            $analyzed->{$a}->{'time_elapsed'} <=> $analyzed->{$b}->{'time_elapsed'}
        } keys(%{ $analyzed });

So one could sort by count or time_elapsed.

AUTHOR

Cory 'G' Watson <gphat at cpan.org>

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

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

DBIx::Class::QueryLog::Analyzer - Query Analysis