File Coverage

blib/lib/POE/Component/Server/Syslog.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	4	6	66.6
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	38	42	90.4

# $Id: Syslog.pm 446 2004-12-27 00:57:57Z sungo $
package POE::Component::Server::Syslog;
$POE::Component::Server::Syslog::VERSION = '1.22';
#ABSTRACT: syslog services for POE

# Docs at the end.

use 5.006001;
use warnings;
use strict;

use POE;
use POE::Component::Server::Syslog::TCP;
use POE::Component::Server::Syslog::UDP;

sub spawn {
	my $class = shift;
	my %args = @_;
	my $type = delete $args{Type};

	my $s;
	if($type) {
		if($type eq 'tcp') {
			$s = POE::Component::Server::Syslog::TCP->spawn(
				%args,
			);
		} elsif ($type eq 'udp') {
			$s = POE::Component::Server::Syslog::UDP->spawn(
				%args,
			);
		} else {
			return undef;
		}
	} else {
		$s = POE::Component::Server::Syslog::UDP->spawn(
			%args,
		);
	}
	return $s;
}

1;


# sungo // vim: ts=4 sw=4 noexpandtab

__END__