NAME Catalyst::TraitFor::Model::DBIC::Schema::QueryLog - DBIx::Class::QueryLog support for Catalyst::Model::DBIC::Schema VERSION version 0.03 SYNOPSIS use base qw/Catalyst::Model::DBIC::Schema/; __PACKAGE__->config({ traits => ['QueryLog'], connect_info => ['dbi:mysql:master', 'user', 'pass'], }); # or __PACKAGE__->config({ traits => ['QueryLog'], connect_info => ['dbi:mysql:master', 'user', 'pass'], querylog_args => { passthrough => 1, }, }); DESCRIPTION check Catalyst::Model::DBIC::Schema for more details Enable DBIx::Class::QueryLog support for Catalyst::Model::DBIC::Schema. METHODS querylog an instance of DBIx::Class::QueryLog. querylog_analyzer an instance of DBIx::Class::QueryLog::Analyzer. querylog_args passed to DBIx::Class::QueryLog->new; EXAMPLE CODE <div class="featurebox"> <h3>Query Log Report</h3> [% SET total = c.model('FilmDB').querylog.time_elapsed | format('%0.6f') %] <div>Total SQL Time: [% total | format('%0.6f') %] seconds</div> [% SET qcount = c.model('FilmDB').querylog.count %] <div>Total Queries: [% qcount %]</div> [% IF qcount %] <div>Avg Statement Time: [% (c.model('FilmDB').querylog.time_elapsed / qcount) | format('%0.6f') %] seconds.</div> <div> <table class="table1"> <thead> <tr> <th colspan="3">5 Slowest Queries</th> </tr> </thead> <tbody> <tr> <th>Time</th> <th>%</th> <th>SQL</th> </tr> [% SET i = 0 %] [% FOREACH q = c.model('FilmDB').querylog_analyzer.get_sorted_queries %] <tr class="[% IF loop.count % 2 %]odd[% END %]"> <th class="sub">[% q.time_elapsed | format('%0.6f') %] <td>[% ((q.time_elapsed / total ) * 100 ) | format('%i') %]%</td> <td>[% q.sql %] : ([% q.params.join(', ') %])</td> </th></tr> [% IF i == 5 %] [% LAST %] [% END %] [% SET i = i + 1 %] [% END %] </tbody> </table> </div> [% END %] </div> OR my $total = sprintf('%0.6f', $c->model('DBIC')->querylog->time_elapsed); $c->log->debug("Total SQL Time: $total seconds"); my $qcount = $c->model('DBIC')->querylog->count; if ($qcount) { $c->log->debug("Avg Statement Time: " . sprintf('%0.6f', $total / $qcount)); my $i = 0; my $qs = $c->model('DBIC')->querylog_analyzer->get_sorted_queries(); foreach my $q (@$qs) { my $q_total = sprintf('%0.6f', $q->time_elapsed); my $q_percent = sprintf('%0.6f', ( ($q->time_elapsed / $total) * 100 )); my $q_sql = $q->sql . ' : ' . join(', ', @{$q->params}); $c->log->debug("SQL: $q_sql"); $c->log->debug("Costs: $q_total, takes $q_percent"); last if ($i == 5); $i++; } } SEE ALSO Catalyst::Model::DBIC::Schema DBIx::Class::QueryLog Catalyst::Component::InstancePerContext AUTHOR Fayland Lam <fayland@gmail.com> COPYRIGHT AND LICENSE This software is copyright (c) 2010 by Fayland Lam. This is free software; you can redistribute it and/or modify it under the same terms as perl itself.