CGI::Application::Plugin::DevPopup::Log - show all data written to an IO::Scalar
handle.
use CGI::Application::Plugin::DevPopup;
use CGI::Application::Plugin::DevPopup::Log;
sub cgiapp_init {
# example using LogDispatch
my $log_fh = $this->devpopup_log_handle;
$this->log_config(
APPEND_NEWLINE => 1,
LOG_DISPATCH_MODULES => [
{ module => 'Log::Dispatch::Handle',
name => 'popup',
min_level => $ENV{CAP_DEVPOPUP_LOGDISPATCH_LEVEL} || 'debug',
handle => $log_fh,
},
]
);
$this->log->debug("log something");
}
The rest of your application follows
...
CGI::Application::Plugin::DevPopup::Log will create a "Log" section in
the DevPopup output. All data written to the filehandle returned by
"$this->devpopup_log_handle" will be
output.
CGI::Application::Plugin::LogDispatch is very handy for this, but
you can write to that filehandle anyway you'd like.
- devpopup_log_handle
- Generates a (fake) filehandle you can pass on to a logging plugin. See the
Synopsis for usage.
L<CGI::Application::Plugin::DevPopup>
L<CGI::Application>
L<CGI::Application::Plugin::LogDispatch>
Joshua I Miller, unrtst@cpan.org
Please report any bugs or feature requests to
bug-cgi-application-plugin-devpopup@rt.cpan.org, or through the web interface
at
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=CGI-Application-Plugin-DevPopup>.
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
Copyright 2007 Joshua Miller, all rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.