… | |
… | |
6 | |
6 | |
7 | Simple uses: |
7 | Simple uses: |
8 | |
8 | |
9 | use AnyEvent; |
9 | use AnyEvent; |
10 | |
10 | |
|
|
11 | AE::log fatal => "No config found, cannot continue!"; # never returns |
|
|
12 | AE::log alert => "The battery died!"; |
|
|
13 | AE::log crit => "The battery temperature is too hot!"; |
|
|
14 | AE::log error => "Division by zero attempted."; |
|
|
15 | AE::log warn => "Couldn't delete the file."; |
|
|
16 | AE::log note => "Wanted to create config, but config already exists."; |
|
|
17 | AE::log info => "File soandso successfully deleted."; |
|
|
18 | AE::log debug => "the function returned 3"; |
11 | AE::log trace => "going to call function abc"; |
19 | AE::log trace => "going to call function abc"; |
12 | AE::log debug => "the function returned 3"; |
|
|
13 | AE::log info => "file soandso successfully deleted"; |
|
|
14 | AE::log note => "wanted to create config, but config was already created"; |
|
|
15 | AE::log warn => "couldn't delete the file"; |
|
|
16 | AE::log error => "failed to retrieve data"; |
|
|
17 | AE::log crit => "the battery temperature is too hot"; |
|
|
18 | AE::log alert => "the battery died"; |
|
|
19 | AE::log fatal => "no config found, cannot continue"; # never returns |
|
|
20 | |
20 | |
21 | Log level overview: |
21 | Log level overview: |
22 | |
22 | |
23 | LVL NAME SYSLOG PERL NOTE |
23 | LVL NAME SYSLOG PERL NOTE |
24 | 1 fatal emerg exit system unusable, aborts program! |
24 | 1 fatal emerg exit system unusable, aborts program! |
… | |
… | |
61 | attempt to be "the" logging solution or even "a" logging solution for |
61 | attempt to be "the" logging solution or even "a" logging solution for |
62 | AnyEvent - AnyEvent simply creates logging messages internally, and this |
62 | AnyEvent - AnyEvent simply creates logging messages internally, and this |
63 | module more or less exposes the mechanism, with some extra spiff to allow |
63 | module more or less exposes the mechanism, with some extra spiff to allow |
64 | using it from other modules as well. |
64 | using it from other modules as well. |
65 | |
65 | |
66 | Remember that the default verbosity level is C<3> (C<critical>), so little |
66 | Remember that the default verbosity level is C<4> (C<error>), so only |
67 | will be logged, unless you set C<PERL_ANYEVENT_VERBOSE> to a higher number |
67 | errors and more important messages will be logged, unless you set |
68 | before starting your program, or change the logging level at runtime with |
68 | C<PERL_ANYEVENT_VERBOSE> to a higher number before starting your program |
69 | something like: |
69 | (C<AE_VERBOSE=5> is recommended during development), or change the logging |
|
|
70 | level at runtime with something like: |
70 | |
71 | |
71 | use AnyEvent::Log; |
72 | use AnyEvent::Log; |
72 | $AnyEvent::Log::FILTER->level ("info"); |
73 | $AnyEvent::Log::FILTER->level ("info"); |
73 | |
74 | |
74 | The design goal behind this module was to keep it simple (and small), |
75 | The design goal behind this module was to keep it simple (and small), |
… | |
… | |
114 | levels 7..9 are usually meant for developers. |
115 | levels 7..9 are usually meant for developers. |
115 | |
116 | |
116 | You can normally only log a message once at highest priority level (C<1>, |
117 | You can normally only log a message once at highest priority level (C<1>, |
117 | C<fatal>), because logging a fatal message will also quit the program - so |
118 | C<fatal>), because logging a fatal message will also quit the program - so |
118 | use it sparingly :) |
119 | use it sparingly :) |
|
|
120 | |
|
|
121 | For example, a program that finds an unknown switch on the commandline |
|
|
122 | might well use a fatal logging level to tell users about it - the "system" |
|
|
123 | in this case would be the program, or module. |
119 | |
124 | |
120 | Some methods also offer some extra levels, such as C<0>, C<off>, C<none> |
125 | Some methods also offer some extra levels, such as C<0>, C<off>, C<none> |
121 | or C<all> - these are only valid for the methods that documented them. |
126 | or C<all> - these are only valid for the methods that documented them. |
122 | |
127 | |
123 | =head1 LOGGING FUNCTIONS |
128 | =head1 LOGGING FUNCTIONS |
… | |
… | |
894 | |
899 | |
895 | Replaces the formatting callback on the context (C<undef> restores the |
900 | Replaces the formatting callback on the context (C<undef> restores the |
896 | default formatter). |
901 | default formatter). |
897 | |
902 | |
898 | The callback is passed the (possibly fractional) timestamp, the original |
903 | The callback is passed the (possibly fractional) timestamp, the original |
899 | logging context, the (numeric) logging level and the raw message string |
904 | logging context (object, not title), the (numeric) logging level and |
900 | and needs to return a formatted log message. In most cases this will be a |
905 | the raw message string and needs to return a formatted log message. In |
901 | string, but it could just as well be an array reference that just stores |
906 | most cases this will be a string, but it could just as well be an array |
902 | the values. |
907 | reference that just stores the values. |
903 | |
908 | |
904 | If, for some reason, you want to use C<caller> to find out more about the |
909 | If, for some reason, you want to use C<caller> to find out more about the |
905 | logger then you should walk up the call stack until you are no longer |
910 | logger then you should walk up the call stack until you are no longer |
906 | inside the C<AnyEvent::Log> package. |
911 | inside the C<AnyEvent::Log> package. |
907 | |
912 | |
… | |
… | |
913 | |
918 | |
914 | "<$lvl>$msg\n" |
919 | "<$lvl>$msg\n" |
915 | }); |
920 | }); |
916 | |
921 | |
917 | Example: return an array reference with just the log values, and use |
922 | Example: return an array reference with just the log values, and use |
918 | C<PApp::SQL::sql_exec> to store the emssage in a database. |
923 | C<PApp::SQL::sql_exec> to store the message in a database. |
919 | |
924 | |
920 | $ctx->fmt_cb (sub { \@_ }); |
925 | $ctx->fmt_cb (sub { \@_ }); |
921 | $ctx->log_cb (sub { |
926 | $ctx->log_cb (sub { |
922 | my ($msg) = @_; |
927 | my ($msg) = @_; |
923 | |
928 | |
… | |
… | |
1040 | =over 4 |
1045 | =over 4 |
1041 | |
1046 | |
1042 | =item $ctx->log ($level, $msg[, @params]) |
1047 | =item $ctx->log ($level, $msg[, @params]) |
1043 | |
1048 | |
1044 | Same as C<AnyEvent::Log::log>, but uses the given context as log context. |
1049 | Same as C<AnyEvent::Log::log>, but uses the given context as log context. |
|
|
1050 | |
|
|
1051 | Example: log a message in the context of another package. |
|
|
1052 | |
|
|
1053 | (AnyEvent::Log::ctx "Other::Package")->log (warn => "heely bo"); |
1045 | |
1054 | |
1046 | =item $logger = $ctx->logger ($level[, \$enabled]) |
1055 | =item $logger = $ctx->logger ($level[, \$enabled]) |
1047 | |
1056 | |
1048 | Same as C<AnyEvent::Log::logger>, but uses the given context as log |
1057 | Same as C<AnyEvent::Log::logger>, but uses the given context as log |
1049 | context. |
1058 | context. |
… | |
… | |
1283 | if (/\G(.+)/g) { |
1292 | if (/\G(.+)/g) { |
1284 | die "PERL_ANYEVENT_LOG ($spec): parse error at '$1'\n"; |
1293 | die "PERL_ANYEVENT_LOG ($spec): parse error at '$1'\n"; |
1285 | } |
1294 | } |
1286 | } |
1295 | } |
1287 | |
1296 | |
1288 | 1; |
|
|
1289 | |
|
|
1290 | =head1 EXAMPLES |
1297 | =head1 EXAMPLES |
1291 | |
1298 | |
1292 | This section shows some common configurations, both as code, and as |
1299 | This section shows some common configurations, both as code, and as |
1293 | C<PERL_ANYEVENT_LOG> string. |
1300 | C<PERL_ANYEVENT_LOG> string. |
1294 | |
1301 | |
… | |
… | |
1374 | Marc Lehmann <schmorp@schmorp.de> |
1381 | Marc Lehmann <schmorp@schmorp.de> |
1375 | http://home.schmorp.de/ |
1382 | http://home.schmorp.de/ |
1376 | |
1383 | |
1377 | =cut |
1384 | =cut |
1378 | |
1385 | |
|
|
1386 | 1 |
|
|
1387 | |