File Coverage

blib/lib/Net/TCLink.pm

Criterion	Covered	Total	%
statement	28	41	68.2
branch	1	10	10.0
condition			n/a
subroutine	5	7	71.4
pod	0	1	0.0
total	34	59	57.6

package Net::TCLink;

use strict;
use Carp;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);

require Exporter;
require DynaLoader;
require AutoLoader;

@ISA = qw(Exporter DynaLoader);
@EXPORT = qw(
	PARAM_MAX_LEN
	TCLinkHandle
);
$VERSION = '3.4';

sub AUTOLOAD {
    my $constname;
    ($constname = $AUTOLOAD) =~ s/.*:://;
    croak "& not defined" if $constname eq 'constant';
    my $val = constant($constname, @_ ? $_[0] : 0);
    if ($! != 0) {
	if ($! =~ /Invalid/) {
	    $AutoLoader::AUTOLOAD = $AUTOLOAD;
	    goto &AutoLoader::AUTOLOAD;
	}
	else {
		croak "Your vendor has not defined Net::TCLink macro $constname";
	}
    }
    no strict 'refs';
    *$AUTOLOAD = sub () { $val };
    goto &$AUTOLOAD;
}

bootstrap Net::TCLink $VERSION;

sub send
{
   my $params;

   if ($#_ == 0)
   {
      $params = $_[0];
   }
   else
   {
      %$params = @_;
   }

   my $handle = TCLinkCreate();
   foreach (keys %$params)
   {
      TCLinkPushParam($handle,$_,$params->{$_});
   }

   TCLinkSend($handle);

   my %response;
   my $buf = " " x 2048;
   $buf = TCLinkGetEntireResponse($handle,$buf);
   my @parts = split/\n/,$buf;
   foreach (@parts)
   {
         my ($name,$val) = split/=/,$_;
         $response{$name} = $val;
   }

   TCLinkDestroy($handle);

   return %response;
}

1;

__END__