Show all data written to an io::scalar handle.
version 1.07
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 \*(L"Log\*(R" section in the DevPopup output. All data written to the filehandle returned by \*(C`$this->devpopup_log_handle\*(C' will be output.
CGI::Application::Plugin::LogDispatch is very handy for this, but you can write to that filehandle anyway you'd like.
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, [email protected]
Please report any bugs or feature requests to [email protected], or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=CGI-Application-Plugin-DevPopup <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.