# NAME Log::Log4perl::Appender::Redis - Log to a Redis channel # VERSION version 0.01 # DESCRIPTION Based on the Log::Log4perl::Appender::Socket by Mike Schilli and Kevin Goess . # EXAMPLE Start it and then run the following script as a client: use Log::Log4perl qw(:easy); my $conf = <init(\$conf); TRACE("The"); DEBUG("duck"); INFO("came"); WARN("singing"); ERROR("cheerfully"); FATAL("Quack!"); # OUTPUT echo "PSUBSCRIBE *" | redis-cli Reading messages... (press Ctrl-C to quit) 1) "psubscribe" 2) "*" 3) (integer) 1 1) "pmessage" 2) "*" 3) "mylog;;gamma.localdomain;;r.pl;;TRACE" 4) "2014/01/24 12:55:41 [gamma.localdomain:1323] The" 1) "pmessage" 2) "*" 3) "mylog;;gamma.localdomain;;r.pl;;DEBUG" 4) "2014/01/24 12:55:41 [gamma.localdomain:1323] duck" 1) "pmessage" 2) "*" 3) "mylog;;gamma.localdomain;;r.pl;;INFO" 4) "2014/01/24 12:55:41 [gamma.localdomain:1323] came" 1) "pmessage" 2) "*" 3) "mylog;;gamma.localdomain;;r.pl;;WARN" 4) "2014/01/24 12:55:41 [gamma.localdomain:1323] singing" 1) "pmessage" 2) "*" 3) "mylog;;gamma.localdomain;;r.pl;;ERROR" 4) "2014/01/24 12:55:41 [gamma.localdomain:1323] cheerfully" 1) "pmessage" 2) "*" 3) "mylog;;gamma.localdomain;;r.pl;;FATAL" 4) "2014/01/24 12:55:41 [gamma.localdomain:1323] Quack!" # AUTHOR pedro.frazao # COPYRIGHT AND LICENSE Copyright 2014 by pedro.frazao This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.