File Coverage

blib/lib/Device/TLSPrinter/Network.pm

Criterion	Covered	Total	%
statement	15	32	46.8
branch	0	6	0.0
condition	0	6	0.0
subroutine	5	9	55.5
pod	0	4	0.0
total	20	57	35.0

package Device::TLSPrinter::Network;
use strict;
use Carp;
use IO::Socket::INET;
use Socket;

{
    no strict "vars";
    @ISA = qw< Device::TLSPrinter >;
}


#
# init()
# ----
sub init {
    my ($self, %args) = @_;

    # check arguments
    my ($host, $port) = split /:/, $self->_device;
    $port = getservbyname($port, "tcp") || $port;
    croak "error: Please specify a host and a port" if not $host or not $port;

    # connect to the specified host and port
    my $sock = IO::Socket::INET->new(
            PeerHost => $host,  Proto => "tcp",  PeerPort => $port,
            autoflush => 1,  Timeout => $self->_timeout
        ) or croak "error: Can't connect to <$host\:$port>: $!";

    # set socket options
    $sock->sockopt(SO_RCVLOWAT, 1);     # receiving buffer size
    $sock->sockopt(SO_SNDLOWAT, 1);     # sending buffer size

    # store the socket in the object
    $self->_socket($sock);

    return $self
}


#
# read()
# ----
sub read {
    my ($self, %args) = @_;
    my $n = $self->{_socket}->sysread(my $buff, $args{expect});
    return ($n, $buff)
}


#
# write()
# -----
sub write {
    my ($self, %args) = @_;
    my $n = $self->{_socket}->syswrite($args{data});
    return $n
}


#
# connected()
# ---------
sub connected {
    my ($self) = @_;
    return $self->{_socket}->connected ? 1 : 0
}


1;

__END__