/usr/share/perl5/Test/TCP/CheckPort.pm is in libtest-tcp-perl 2.19-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | package Test::TCP::CheckPort;
use strict;
use warnings;
use base qw/Exporter/;
use Net::EmptyPort qw();
our @EXPORT = qw/ check_port /;
sub check_port {
if ( @ARGV == 3) {
print Net::EmptyPort::check_port( { host => $ARGV[0], port => $ARGV[1], proto => $ARGV[2] } );
} else {
print Net::EmptyPort::check_port( @ARGV );
}
}
1;
__END__
=head1 NAME
Test::TCP::CheckPort - check if a port is open from command line
=head1 SYNOPSIS
$^X -MTest::TCP::CheckPort -echeck_port 8080
=head1 DESCRIPTION
This is a wrapper for L<Net::EmptyPort> which checks if a given port
is open, from the command line argument (C<@ARGV>). Because it works
with port numbers in the argument list, you don't need to quote it
when running with the perl executable.
=head1 SEE ALSO
L<Test::TCP> L<Net::EmptyPort>
=cut
|