The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

SHANTANU / Printer-ESCPOS-1.004 / lib / Printer / ESCPOS / Connections / Network.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
—
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113

              
use strict;
use warnings;
package Printer::ESCPOS::Connections::Network;
# PODNAME: Printer::ESCPOS::Connections::Network
# ABSTRACT: Network Connection Interface for L<Printer::ESCPOS>
#
# This file is part of Printer-ESCPOS
#
# This software is copyright (c) 2016 by Shantanu Bhadoria.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
our $VERSION = '1.004'; # VERSION
# Dependencies
use 5.010;
use Moo;
with 'Printer::ESCPOS::Roles::Connection';
use IO::Socket;
has deviceIP => ( is => 'ro', );
has devicePort => (
    is      => 'ro',
    default => '9100',
);
has _connection => (
    is       => 'lazy',
    init_arg => undef,
);
sub _build__connection {
    my ($self) = @_;
    my $printer;
    $printer = IO::Socket::INET->new(
        Proto    => "tcp",
        PeerAddr => $self->deviceIP,
        PeerPort => $self->devicePort,
        Timeout  => 1,
    ) or die " Can't connect to printer";
    return $printer;
}
sub read {
    my ( $self, $question, $bytes ) = @_;
    my $data;
    $bytes ||= 2;
    say unpack( "H*", $question );
    $self->_connection->write($question);
    $self->_connection->read( $data, $bytes );
    return $data;
}
no Moo;
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=head1 NAME
Printer::ESCPOS::Connections::Network - Network Connection Interface for L<Printer::ESCPOS>
=head1 VERSION
version 1.004
=head1 ATTRIBUTES
=head2 deviceIP
Contains the IP address of the device when its a network printer. The module creates IO:Socket::INET object to connect
to the printer. This can be passed in the constructor.
=head2 devicePort
Contains the network port of the device when its a network printer. The module creates IO:Socket::INET object to connect
to the printer. This can be passed in the constructor.
=head1 METHODS
=head2 read
Read Data from the printer
=head1 AUTHOR
Shantanu Bhadoria <shantanu@cpan.org> L<https://www.shantanubhadoria.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2016 by Shantanu Bhadoria.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut