File Coverage

blib/lib/Teamspeak.pm

Criterion	Covered	Total	%
statement	21	36	58.3
branch	0	6	0.0
condition	0	3	0.0
subroutine	7	10	70.0
pod	2	2	100.0
total	30	57	52.6

# $Id: Teamspeak.pm 37 2008-03-09 01:10:00Z maletin $
# $URL: http://svn.berlios.de/svnroot/repos/cpan-teamspeak/cpan/trunk/lib/Teamspeak.pm $

package Teamspeak;
use Teamspeak::Channel;
use Teamspeak::Player;

use 5.004;
use strict;
use Net::Telnet;
use Carp;
use vars qw( $VERSION );

$VERSION = '0.6';

sub new {
    my ( $class, %arg ) = @_;
    if ( $arg{type} eq 'telnet' ) {
        require Teamspeak::Telnet;
        return Teamspeak::Telnet->new(%arg);
    }
    elsif ( $arg{type} eq 'sql' ) {
        require Teamspeak::SQL;
        return Teamspeak::SQL->new(%arg);
    }
    elsif ( $arg{type} eq 'web' ) {
        require Teamspeak::Web;
        return Teamspeak::Web->new(%arg);
    }
    else {
        croak("unknown type $arg{type}");
    }
}    # new

sub error {
    my ($self) = @_;
    $self->{err}    = 1;
    $self->{errstr} = $_[1];
    return 0;
}    # error

sub _croak {
    my ($self, $msg) = @_;
    Carp::croak($msg || $self);
}

1;

__END__