… | |
… | |
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, @_ |