/usr/share/perl5/Plack/Middleware/Debug/DBITrace.pm is in libplack-middleware-debug-perl 0.16+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 | package Plack::Middleware::Debug::DBITrace;
use 5.008;
use strict;
use warnings;
use Plack::Util::Accessor qw(level);
use parent qw(Plack::Middleware::Debug::Base);
our $VERSION = '0.16';
sub prepare_app {
my $self = shift;
$self->level(1) unless defined $self->level;
}
sub run {
my($self, $env, $panel) = @_;
$panel->nav_subtitle("Level " . $self->level);
my($old_trace, $output);
if (defined &DBI::trace) {
$old_trace = DBI->trace;
open my $fh, ">", \$output;
DBI->trace($self->level . ",SQL", $fh);
} else {
return $panel->disable;
}
return sub {
my $res = shift;
if (defined $old_trace) {
DBI->trace($old_trace);
$panel->content($self->render_lines($output));
}
};
}
1;
__END__
=head1 NAME
Plack::Middleware::Debug::DBITrace - DBI trace panel
=head1 SYNOPSIS
enable "Debug";
enable "Debug::DBITrace";
=head1 DESCRIPTION
This debug panel captures DBI trace log in a raw format. See also
L<Plack::Middleware::Debug::DBIProfile> to see the profile log, which
would be more useful.
=head1 SEE ALSO
L<Plack::Middleware::Debug::DBIProfile> L<Plack::Middleware::Debug>
=cut
|