> > use Apache::Handlers qw(CLEANUP PerlCleanupHandler); > > our $global; > our $other_global : PerlCleanupHandler; > my $lexical : PerlLogHandler(sub { print STDERR "$lexical\n"; }); > > CLEANUP { > our $global = undef; > };
heh, seems like you should do this if only for the fun of it - nifty idea. sub printstuff : PerlHandler {...}; might be a neat piece of magic. --Geoff