| … | |
… | |
| 2 | |
2 | |
| 3 | AnyEvent::Log - simple logging "framework" |
3 | AnyEvent::Log - simple logging "framework" |
| 4 | |
4 | |
| 5 | =head1 SYNOPSIS |
5 | =head1 SYNOPSIS |
| 6 | |
6 | |
| 7 | # simple use |
7 | # simple use: |
|
|
8 | |
| 8 | use AnyEvent; |
9 | use AnyEvent; |
| 9 | |
10 | |
| 10 | AE::log debug => "hit my knee"; |
11 | AE::log debug => "hit my knee"; |
| 11 | AE::log warn => "it's a bit too hot"; |
12 | AE::log warn => "it's a bit too hot"; |
| 12 | AE::log error => "the flag was false!"; |
13 | AE::log error => "the flag was false!"; |
| 13 | AE::log fatal => "the bit toggled! run!"; # never returns |
14 | AE::log fatal => "the bit toggled! run!"; # never returns |
| 14 | |
15 | |
| 15 | # "complex" use (for speed sensitive code) |
16 | # "complex" use (for speed sensitive code): |
|
|
17 | |
| 16 | use AnyEvent::Log; |
18 | use AnyEvent::Log; |
| 17 | |
19 | |
| 18 | my $tracer = AnyEvent::Log::logger trace => \$my $trace; |
20 | my $tracer = AnyEvent::Log::logger trace => \$my $trace; |
| 19 | |
21 | |
| 20 | $tracer->("i am here") if $trace; |
22 | $tracer->("i am here") if $trace; |
| 21 | $tracer->(sub { "lots of data: " . Dumper $self }) if $trace; |
23 | $tracer->(sub { "lots of data: " . Dumper $self }) if $trace; |
| 22 | |
24 | |
| 23 | # configuration |
25 | # configuration: |
| 24 | |
26 | |
| 25 | # set logging for the current package to errors and higher only |
27 | # set logging for the current package to errors and higher only |
| 26 | AnyEvent::Log::ctx->level ("error"); |
28 | AnyEvent::Log::ctx->level ("error"); |
| 27 | |
29 | |
| 28 | # set logging level to suppress anything below "notice" |
30 | # set logging level to suppress anything below "notice" |
