File Coverage

blib/lib/POE/Component/IRC/Service.pm

Criterion	Covered	Total	%
statement	23	29	79.3
branch	2	6	33.3
condition	1	3	33.3
subroutine	6	6	100.0
pod	1	1	100.0
total	33	45	73.3

# POE::Component::IRC::Service
# By Chris Williams
#
# This module may be used, modified, and distributed under the same
# terms as Perl itself. Please see the license that came with your Perl
# distribution for details.
#

package POE::Component::IRC::Service;

# This is just a wrapper for the following modules

use strict;
use POE::Component::IRC::Service::P10;
use POE::Component::IRC::Service::Hybrid;
use Carp;
use vars qw($VERSION);

$VERSION = '0.998';

sub new {
  my ($package,$alias,$ircdtype) = splice @_, 0, 3;
  my $object;

  unless ($alias and $ircdtype) {
    croak "Not enough arguments to POE::Component::IRC::Service::new()";
  }

  SWITCH: {
    if ($ircdtype =~ /^p10$/i) {
	$object = POE::Component::IRC::Service::P10->new($alias,@_);
    	last SWITCH;
    }
    if ($ircdtype =~ /^Hybrid$/i) {
        croak "Not implemented yet";
	$object = POE::Component::IRC::Service::Hybrid->new($alias,@_);
	last SWITCH;
    }
    croak "Don't know that IRCD type sorry";
  }
  return $object;
}

1;
__END__