File Coverage

blib/lib/Log/Log4perl/Appender/Socket/UNIX.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod	0	2	0.0
total	16	34	47.0

##################################################
package Log::Log4perl::Appender::Socket::UNIX;
##################################################

our @ISA = qw(Log::Log4perl::Appender);

use warnings;
use strict;

use IO::Handle;
use Socket;

our $VERSION = "1.04";

##################################################
sub new {
##################################################
	my($class, @options) = @_;

	my $self = {
		name		=> "unknown name",
		Socket		=> "/var/tmp/$$.sock",
		@options,
	};

	bless $self, $class;

	$self->{socket_addr} = sockaddr_un($self->{Socket});
	socket(my $logsocket, PF_UNIX, SOCK_DGRAM, 0);
	$logsocket->blocking(0);
	$self->{socket_ref} = $logsocket;

	return $self;
}

##################################################
sub log {
##################################################
	my($self, %params) = @_;

	send($self->{socket_ref}, $params{message}, 0, $self->{socket_addr});
	return 1;
}

##################################################
sub DESTROY {
##################################################
	my($self) = @_;

	undef $self->{socket_ref};
}

1;

__END__