Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    text
    copied!<p>Take a look at <a href="http://search.cpan.org/~drolsky/Log-Dispatch-2.26/lib/Log/Dispatch.pm" rel="nofollow noreferrer">Log::Dispatch</a> <br> Dispatches messages to one or more outputs.</p> <pre><code> use Log::Dispatch; # Simple API # my $log = Log::Dispatch-&gt;new ( outputs =&gt; [ [ 'File', min_level =&gt; 'debug', filename =&gt; 'logfile' ], [ 'Screen', min_level =&gt; 'warning' ], ], ); $log-&gt;info('Blah, blah'); # More verbose API # my $log = Log::Dispatch-&gt;new(); $log-&gt;add( Log::Dispatch::File-&gt;new ( name =&gt; 'file1', min_level =&gt; 'debug', filename =&gt; 'logfile' ) ); $log-&gt;add( Log::Dispatch::Screen-&gt;new ( name =&gt; 'screen', min_level =&gt; 'warning', ) ); $log-&gt;log( level =&gt; 'info', message =&gt; 'Blah, blah' ); my $sub = sub { my %p = @_; return reverse $p{message}; }; my $reversing_dispatcher = Log::Dispatch-&gt;new( callbacks =&gt; $sub ); </code></pre> <p>It has a few helper/utility modules you should look at too.</p> <blockquote> <p>Log::Dispatch::DBI - Log output to a database table.</p> <p>Log::Dispatch::FileRotate - Rotates log files periodically as part of its usage.</p> <p>Log::Dispatch::File::Stamped - Stamps log files with date and time information.</p> <p>Log::Dispatch::Jabber - Logs messages via Jabber. </p> <p>Log::Dispatch::Tk - Logs messages to a Tk window.</p> <p>Log::Dispatch::Win32EventLog - Logs messages to the Windows event log.</p> <p>Log::Dispatch::Config - Allows configuration of logging via a text file similar (or so I'm told) to how it is done with log4j.</p> </blockquote>
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload