From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

COOK / Device-SerialPort-1.002 / t / AltPort.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

              
package AltPort;
# Inheritance test for test3.t and test4.t only
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
$VERSION = '0.10';
require Exporter;
use Device::SerialPort qw( :PARAM 0.07 );
@ISA = qw( Exporter Device::SerialPort );
@EXPORT= qw();
@EXPORT_OK= @Device::SerialPort::EXPORT_OK;
%EXPORT_TAGS = %Device::SerialPort::EXPORT_TAGS;
my $in = SHORTsize;
print "AltPort import=$in\n";
1;