NAME

Net::PortTest - Perl extension for running banner tests against INET services

SYNOPSIS

use Net::PortTest;
blah blah blah

on 143 => sub {
    my $sock = shift;
    my $results = {};
    my $rc = -1;
  
    $results->{banner} = $sock->getline;
  
    $rc = 0
            if $results->{banner} =~ '^\* OK';
  
    return $rc, $results;
};

# alias some non standard ports to use the same
# test function

alias qw/ 10143 20143 / => 143;

my $results = run_tests '1.2.3.4' => 143;

# or, pass in an array of ports
$results = run_tests '1.2.3.4' => qw/ 143 10143 20143 /;

DESCRIPTION

Stub documentation for Net::PortTest, created by h2xs. It looks like the author of the extension was negligent enough to leave the stub unedited.

EXPORT

None by default. But this module will export:

run_tests, on and alias when the module is loaded with:

use Net::PortTest ':all';

SEE ALSO

Mention other useful documentation such as the documentation of related modules or operating system documentation (such as man pages in UNIX), or any relevant external documentation such as RFCs or standards.

If you have a mailing list set up for your module, mention it here.

If you have a web site set up for your module, mention it here.

AUTHOR

Peter Blair, <cpan@petermblair.com>

COPYRIGHT AND LICENSE

Copyright (C) 2013 by Peter Blair

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.14.2 or, at your option, any later version of Perl 5 you may have available.