CGI::Application::Plugin::DevPopup::Log - show all data written to an IO::Scalar handle. |
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.
the CGI::Application::Plugin::LogDispatch manpage is very handy for this, but you can write to that filehandle anyway you'd like.
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. 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.
CGI::Application::Plugin::DevPopup::Log - show all data written to an IO::Scalar handle. |