plack debug panel DBIC Querylog integration

package Catalyst::TraitFor::Model::DBIC::Schema::QueryLog::PlackDebugPanel;
use Moose::Role;

our $VERSION = "0.01";

around 'ACCEPT_CONTEXT', sub {
    my ($orig, $self, $ctx) = @_;
    $self = $self->$orig($ctx);
    $ctx->engine->env->{'plack.middleware.querylog'} = $self->querylog
      if defined $ctx->engine->env;
    return $self;
};

1;

package Plack::Middleware::Debug::Catalyst::DBIC::QueryLog;

use strict;
use warnings;
use parent qw(Plack::Middleware::Debug::Base);

our $VERSION = "0.01";

sub run {
    my ( $self, $env, $panel ) = @_;

    return sub {
        $panel->title('Catalyst::DBIC::QueryLog');
        $panel->nav_subtitle("Catalyst::DBIC::QueryLog");

        use Data::Dump;
        my $dump = Data::Dump::dump $env->{'plack.middleware.querylog'};
        $panel->content($dump);
    };
}

1;

## Then in your myapp.conf or whatever...

	'Model::Schema' => {
        schema_class => 'MyApp::Schema',
        traits => ['QueryLog','QueryLog::PlackDebugPanel'],
		connect_info => {
			dsn => 'dbi:SQLite:dbname=__path_to(share,var,sqlite.db)__',
		},
        querylog_args => {
            passthrough => 1,
        },
	},