File Coverage

blib/lib/NNML/Handle.pm

Criterion	Covered	Total	%
statement	15	29	51.7
branch	0	12	0.0
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	21	48	43.7

#                              -*- Mode: Perl -*-
# Handle.pm --
# ITIID           : $ITI$ $Header $__Header$
# Author          : Ulrich Pfeifer
# Created On      : Thu Feb 27 15:03:57 1997
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Fri Feb 28 12:09:50 1997
# Language        : CPerl
# Update Count    : 21
# Status          : Unknown, Use with caution!
#
# (C) Copyright 1997, Universität Dortmund, all rights reserved.
#

package NNML::Handle;
use Net::Cmd;
use IO::Socket;
use vars qw(@ISA);
use strict;
use Carp;

@ISA = qw(Net::Cmd IO::Socket::INET);

# Snarfed from Net::Cmd; we don't expect an answer.
sub dataend
{
 my $cmd = shift;

 return 1
    unless(exists ${*$cmd}{'net_cmd_lastch'});

 if(${*$cmd}{'net_cmd_lastch'} eq "\015")
  {
   syswrite($cmd,"\012",1);
   print STDERR "\n"
    if($cmd->debug);
  }
 elsif(${*$cmd}{'net_cmd_lastch'} ne "\012")
  {
   syswrite($cmd,"\015\012",2);
   print STDERR "\n"
    if($cmd->debug);
  }

 print STDERR "$cmd>>> .\n"
    if($cmd->debug);

 syswrite($cmd,".\015\012",3);

 delete ${*$cmd}{'net_cmd_lastch'};

}

1;