Add basic POD for WebGUI's debug panel plugin
This commit is contained in:
parent
11e89a1771
commit
a3d4f0fcc0
1 changed files with 42 additions and 0 deletions
|
|
@ -1,10 +1,52 @@
|
||||||
package Plack::Middleware::Debug::Logger;
|
package Plack::Middleware::Debug::Logger;
|
||||||
|
|
||||||
|
=head1 LEGAL
|
||||||
|
|
||||||
|
-------------------------------------------------------------------
|
||||||
|
WebGUI is Copyright 2001-2009 Plain Black Corporation.
|
||||||
|
-------------------------------------------------------------------
|
||||||
|
Please read the legal notices (docs/legal.txt) and the license
|
||||||
|
(docs/license.txt) that came with this distribution before using
|
||||||
|
this software.
|
||||||
|
-------------------------------------------------------------------
|
||||||
|
http://www.plainblack.com info@plainblack.com
|
||||||
|
-------------------------------------------------------------------
|
||||||
|
|
||||||
|
=head1 NAME
|
||||||
|
|
||||||
|
Package Plack::Middleware::Debug::Logger
|
||||||
|
|
||||||
|
=head1 DESCRIPTION
|
||||||
|
|
||||||
|
This package is the interface to the WebGUI macro system.
|
||||||
|
|
||||||
|
=cut
|
||||||
|
|
||||||
use 5.008;
|
use 5.008;
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
use parent qw(Plack::Middleware::Debug::Base);
|
use parent qw(Plack::Middleware::Debug::Base);
|
||||||
our $VERSION = '0.07';
|
our $VERSION = '0.07';
|
||||||
|
|
||||||
|
=head2 run
|
||||||
|
|
||||||
|
Entry subroutine for the Debug logger. Sets up $env->{'psgix.logger'} with a subref for
|
||||||
|
logging information to the Debug panel.
|
||||||
|
|
||||||
|
=head3 $env->{'psgix.logger'}
|
||||||
|
|
||||||
|
The subroutine takes a hash of arguments:
|
||||||
|
|
||||||
|
=head4 level
|
||||||
|
|
||||||
|
The severity level of the message.
|
||||||
|
|
||||||
|
=head4 message
|
||||||
|
|
||||||
|
The message to log.
|
||||||
|
|
||||||
|
=cut
|
||||||
|
|
||||||
sub run {
|
sub run {
|
||||||
my ($self, $env, $panel) = @_;
|
my ($self, $env, $panel) = @_;
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue