File: AltPort.pm

package info (click to toggle)
libdevice-serialport-perl 1.04-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 664 kB
  • sloc: perl: 4,737; makefile: 7
file content (15 lines) | stat: -rwxr-xr-x 409 bytes parent folder | download | duplicates (6) 
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;