File Coverage

blib/lib/Net/SenderBase/Query.pm

Criterion	Covered	Total	%
statement	15	26	57.6
branch	1	4	25.0
condition	0	7	0.0
subroutine	5	6	83.3
pod	1	2	50.0
total	22	45	48.8

# $Id: Query.pm,v 1.3 2003/07/04 15:44:34 matt Exp $

package Net::SenderBase::Query;
use strict;
use vars qw($TIMEOUT);

use Net::SenderBase::Results;
use Socket;

$TIMEOUT = 10;

sub new {
    my $class = shift;
    my %attrs = @_;

    $attrs{Address} || die "No 'Address' attribute in call to new()";
    if ($attrs{Address} !~ /^\d+\.\d+\.\d+\.\d+$/) {
        # assume it is a hostname instead of an IP
        $attrs{Address} = inet_ntoa(scalar(gethostbyname($attrs{Address})||pack("N", 0)));
    }

    $attrs{Timeout} ||= $TIMEOUT;

    my $type = uc($attrs{Transport}) || 'DNS';
    my $query_class = "${class}::${type}";
    load_module($query_class);

    return $query_class->new(%attrs);
}

sub load_module {
    my $module = shift;
    $module =~ s/::/\//g;
    $module .= ".pm";
    require $module;
}

1;
__END__