| … | |
… | |
| 111 | |
111 | |
| 112 | use Carp (); |
112 | use Carp (); |
| 113 | use POSIX (); |
113 | use POSIX (); |
| 114 | |
114 | |
| 115 | use AnyEvent (); BEGIN { AnyEvent::common_sense } |
115 | use AnyEvent (); BEGIN { AnyEvent::common_sense } |
| 116 | use AnyEvent::Util (); |
116 | #use AnyEvent::Util (); need to load this in a delayed fashion, as it uses AE::log |
| 117 | |
117 | |
| 118 | our $VERSION = $AnyEvent::VERSION; |
118 | our $VERSION = $AnyEvent::VERSION; |
| 119 | |
119 | |
| 120 | our ($COLLECT, $FILTER, $LOG); |
120 | our ($COLLECT, $FILTER, $LOG); |
| 121 | |
121 | |
| … | |
… | |
| 357 | |
357 | |
| 358 | $LOGGER{$logger+0} = $logger; |
358 | $LOGGER{$logger+0} = $logger; |
| 359 | |
359 | |
| 360 | _reassess $logger+0; |
360 | _reassess $logger+0; |
| 361 | |
361 | |
|
|
362 | require AnyEvent::Util; |
| 362 | my $guard = AnyEvent::Util::guard { |
363 | my $guard = AnyEvent::Util::guard (sub { |
| 363 | # "clean up" |
364 | # "clean up" |
| 364 | delete $LOGGER{$logger+0}; |
365 | delete $LOGGER{$logger+0}; |
| 365 | }; |
366 | }); |
| 366 | |
367 | |
| 367 | sub { |
368 | sub { |
| 368 | $guard if 0; # keep guard alive, but don't cause runtime overhead |
369 | $guard if 0; # keep guard alive, but don't cause runtime overhead |
| 369 | |
370 | |
| 370 | _log $ctx, $level, @_ |
371 | _log $ctx, $level, @_ |
