[ViewVC] Diff of: cvs/AnyEvent/lib/AnyEvent/Log.pm

Comparing AnyEvent/lib/AnyEvent/Log.pm (file contents):
Revision 1.29 by root, Thu Aug 25 00:14:32 2011 UTC vs.
Revision 1.36 by root, Thu Aug 25 05:39:47 2011 UTC

 will be logged, unless you set C<PERL_ANYEVENT_VERBOSE> to a higher number
 before starting your program, or change the logging level at runtime with
 something like:
    use AnyEvent::Log;
-   AnyEvent::Log::FILTER->level ("info");
+   $AnyEvent::Log::FILTER->level ("info");
 The design goal behind this module was to keep it simple (and small),
 but make it powerful enough to be potentially useful for any module, and
 extensive enough for the most common tasks, such as logging to multiple
 targets, or being able to log into a database.
+The module is also usable before AnyEvent itself is initialised, in which
+case some of the functionality might be reduced.
-The amount of documentation might indicate otherwise, but the module is
+The amount of documentation might indicate otherwise, but the runtime part
-still just below 300 lines of code.
+of the module is still just below 300 lines of code.
 =head1 LOGGING LEVELS
 Logging levels in this module range from C<1> (highest priority) to C<9>
 (lowest priority). Note that the lowest numerical value is the highest
                # now get raw message, unless we have it already
                unless ($now) {
                   $format = $format->() if ref $format;
                   $format = sprintf $format, @args if @args;
                   $format =~ s/\n$//;
-                  $now = AE::now;
+                  $now = now;
                };
                # format msg
                my $str = $ctx->[4]
                   ? $ctx->[4]($now, $_[0], $level, $format)
    }
    @$_ = ($_->[0], (1 << 10) - 1 - 1)
       for $LOG, $FILTER, $COLLECT;
-   $LOG->slaves;
+   #$LOG->slaves;
    $LOG->title ('$AnyEvent::Log::LOG');
    $LOG->log_to_warn;
    $FILTER->slaves ($LOG);
    $FILTER->title ('$AnyEvent::Log::FILTER');
    filter=debug:log=+%warnings:%warnings=warn,syslog=LOG_LOCAL0
    # log trace messages (only) from AnyEvent::Debug to file
    AnyEvent::Debug=+%trace:%trace=only,trace,file=/tmp/tracelog
+A context name in the log specification can be any of the following:
+=over 4
+=item C<collect>, C<filter>, C<log>
+Correspond to the three predefined C<$AnyEvent::Log::COLLECT>,
+C<AnyEvent::Log::FILTER> and C<$AnyEvent::Log::LOG> contexts.
+=item C<%name>
+Context names starting with a C<%> are anonymous contexts created when the
+name is first mentioned. The difference to package contexts is that by
+default they have no attached slaves.
+=item a perl package name
+Any other string references the logging context associated with the given
+Perl C<package>. In the unlikely case where you want to specify a package
+context that matches on of the other context name forms, you can add a
+C<::> to the package name to force interpretation as a package.
+=back
+The configuration specifications can be any number of the following:
+=over 4
+=item C<stderr>
+Configures the context to use Perl's C<warn> function (which typically
+logs to C<STDERR>). Works like C<log_to_warn>.
+=item C<file=>I<path>
+Configures the context to log to a file with the given path. Works like
+C<log_to_file>.
+=item C<path=>I<path>
+Configures the context to log to a file with the given path. Works like
+C<log_to_path>.
+=item C<syslog> or C<syslog=>I<expr>
+Configures the context to log to syslog. If I<expr> is given, then it is
+evaluated in the L<Sys::Syslog> package, so you could use:
+   log=syslog=LOG_LOCAL0
+=item C<nolog>
+Configures the context to not log anything by itself, which is the
+default. Same as C<< $ctx->log_cb (undef) >>.
+=item C<0> or C<off>
+Sets the logging level of the context ot C<0>, i.e. all messages will be
+filtered out.
+=item C<all>
+Enables all logging levels, i.e. filtering will effectively be switched
+off (the default).
+=item C<only>
+Disables all logging levels, and changes the interpretation of following
+level specifications to enable the specified level only.
+Example: only enable debug messages for a context.
+   context=only,debug
+=item C<except>
+Enables all logging levels, and changes the interpretation of following
+level specifications to disable that level. Rarely used.
+Example: enable all logging levels except fatal and trace (this is rather
+nonsensical).
+   filter=exept,fatal,trace
+=item C<level>
+Enables all logging levels, and changes the interpretation of following
+level specifications to be "that level or any higher priority
+message". This is the default.
+Example: log anything at or above warn level.
+   filter=warn
+   # or, more verbose
+   filter=only,level,warn
+=item C<1>..C<9> or a logging level name (C<error>, C<debug> etc.)
+A numeric loglevel or the name of a loglevel will be interpreted according
+to the most recent C<only>, C<except> or C<level> directive. By default,
+specifying a logging level enables that and any higher priority messages.
+=item C<+>I<context>
+Attaches the named context as slave to the context.
+=item C<+>
+A line C<+> detaches all contexts, i.e. clears the slave list from the
+context. Anonymous (C<%name>) contexts have no attached slaves by default,
+but package contexts have the parent context as slave by default.
+Example: log messages from My::Module to a file, do not send them to the
+default log collector.
+   My::Module=+,file=/tmp/mymodulelog
+=back
+Any character can be escaped by prefixing it with a C<\> (backslash), as
+usual, so to log to a file containing a comma, colon, backslash and some
+spaces in the filename, you would do this:
+   PERL_ANYEVENT_LOG='log=file=/some\ \:file\ with\,\ \\-escapes'
 Since whitespace (which includes newlines) is allowed, it is fine to
 specify multiple lines in C<PERL_ANYEVENT_LOG>, e.g.:
    PERL_ANYEVENT_LOG="
       filter=warn
       AnyEvent::Debug=+%trace
       %trace=only,trace,+log
    " myprog
-A context name in the log specification can be any of the following:
+Also, in the unlikely case when you want to concatenate specifications,
+use whitespace as separator, as C<::> will be interpreted as part of a
+module name, an empty spec with two separators:
-=over 4
+   PERL_ANYEVENT_LOG="$PERL_ANYEVENT_LOG MyMod=debug"
-=item C<collect>, C<filter>, C<log>
-Correspond to the three predefined C<$AnyEvent::Log::COLLECT>,
-C<AnyEvent::Log::FILTER> and C<$AnyEvent::Log::LOG> contexts.
-=item C<%name>
-Context names starting with a C<%> are anonymous contexts created when the
-name is first mentioned. The difference to package contexts is that by
-default they have no attached slaves.
-=item a perl package name
-Any other string references the logging context associated with the given
-Perl C<package>. In the unlikely case where you want to specify a package
-context that matches on of the other context name forms, you can add a
-C<::> to the package name to force interpretation as a package.
-=back
-The configuration specifications can be any number of the following:
-=over 4
-=item C<stderr>
-Configures the context to use Perl's C<warn> function (which typically
-logs to C<STDERR>). Works like C<log_to_warn>.
-=item C<file=>I<path>
-Configures the context to log to a file with the given path. Works like
-C<log_to_file>.
-=item C<path=>I<path>
-Configures the context to log to a file with the given path. Works like
-C<log_to_path>.
-=item C<syslog> or C<syslog=>I<expr>
-Configured the context to log to syslog. If I<expr> is given, then it is
-evaluated in the L<Sys::Syslog> package, so you could use:
-   log=syslog=LOG_LOCAL0
-=item C<nolog>
-Configures the context to not log anything by itself, which is the
-default. Same as C<< $ctx->log_cb (undef) >>.
-=item C<0> or C<off>
-Sets the logging level of the context ot C<0>, i.e. all messages will be
-filtered out.
-=item C<all>
-Enables all logging levels, i.e. filtering will effectively be switched
-off (the default).
-=item C<only>
-Disables all logging levels, and changes the interpretation of following
-level specifications to enable the specified level only.
-Example: only enable debug messages for a context.
-   context=only,debug
-=item C<except>
-Enables all logging levels, and changes the interpretation of following
-level specifications to disable that level. Rarely used.
-Example: enable all logging levels except fatal and trace (this is rather
-nonsensical).
-   filter=exept,fatal,trace
-=item C<level>
-Enables all logging levels, and changes the interpretation of following
-level specifications to be "that level or any higher priority
-message". This is the default.
-Example: log anything at or above warn level.
-   filter=warn
-   # or, more verbose
-   filter=only,level,warn
-=item C<1>..C<9>, a logging level name (C<error>, C<debug> etc.)
-A numeric loglevel or the name of a loglevel will be interpreted according
-to the most recent C<only>, C<except> or C<level> directive. By default,
-specifying a logging level enables that and any higher priority messages.
-=item C<+>I<context>
-Adds/attaches the named context as slave to the context.
-=item C<+>
-A line C<+> clears the slave list form the context. Anonymous (C<%name>)
-contexts have no slaves by default, but package contexts have the parent
-context as slave by default.
-Example: log messages from My::Module to a file, do not send them to the
-default log collector.
-   My::Module=+,file=/tmp/mymodulelog
-=back
 =cut
 for (my $spec = $ENV{PERL_ANYEVENT_LOG}) {
    my %anon;

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing AnyEvent/lib/AnyEvent/Log.pm (file contents): Revision 1.29 by root, Thu Aug 25 00:14:32 2011 UTC vs. Revision 1.36 by root, Thu Aug 25 05:39:47 2011 UTC

Diff Legend

Comparing AnyEvent/lib/AnyEvent/Log.pm (file contents):
Revision 1.29 by root, Thu Aug 25 00:14:32 2011 UTC vs.
Revision 1.36 by root, Thu Aug 25 05:39:47 2011 UTC