/ 
Test-Internet-0.07
River stage one • 1 direct dependent • 1 total dependent
/ Test::Internet

NAME

Test::Internet - Interface to test internet connection.

VERSION

Version 0.07

DESCRIPTION

It provides a simple interface to test the internet connection reliably. I needed this feature in the test script for one of my package WWW::Google::Places. The code can be found here.

METHODS

connect_ok($timeout)

Return true/false depending on whether there is an active internet connection.The default timeout is 2 seconds unless the user pass the timeout period. It gets exported by default.

use strict; use warnings;
use Test::More;
use Test::Internet;

plan skip_all => "No internet connection." unless connect_ok();
ok(connect_ok());
done_testing();

Why Test::Internet?

Karen Etheridge raised this question as in RT# 102095 and introduced me to a very similar module Test::RequiresInternet on CPAN.What a shame that it didn't turn up in a search on CPAN, while I was looking for any module with the word Internet. I am not an expert on how the CPAN search engine works, though. Had I known about it, I wouldn't have bothered creating Test::Internet to be honest.

The nice thing about the Test::RequiresInternet is that it does not need any external module and just uses what is available in core perl i.e. Socket. However it relies on a webservice to exist and respond, so if that webservice is down the module will give a false negative.

So if the requirement is to check if there is an active internet connection only then I would recommend Test::Internet. In case you want to check if you can reach a particular given host as well then go for Test::RequiresInternet.

AUTHOR

Mohammad S Anwar, <mohammad.anwar at yahoo.com>

REPOSITORY

https://github.com/manwar/Test-Internet

ACKNOWLEDGEMENT

David Kitcher-Jones (m4ddav3) for his immensely valuable inputs.

SEE ALSO

Test::RequiresInternet

BUGS

Please report any bugs or feature requests to bug-test-internet at rt.cpan.org or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Internet. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Test::Internet

You can also look for information at:

LICENSE AND COPYRIGHT

Copyright (C) 2015 - 2016 Mohammad S Anwar.

This program is free software; you can redistribute it and/or modify it under the terms of the the Artistic License (2.0). You may obtain a copy of the full license at:

http://www.perlfoundation.org/artistic_license_2_0

Any use, modification, and distribution of the Standard or Modified Versions is governed by this Artistic License.By using, modifying or distributing the Package, you accept this license. Do not use, modify, or distribute the Package, if you do not accept this license.

If your Modified Version has been derived from a Modified Version made by someone other than you,you are nevertheless required to ensure that your Modified Version complies with the requirements of this license.

This license does not grant you the right to use any trademark, service mark, tradename, or logo of the Copyright Holder.

This license includes the non-exclusive, worldwide, free-of-charge patent license to make, have made, use, offer to sell, sell, import and otherwise transfer the Package with respect to any patent claims licensable by the Copyright Holder that are necessarily infringed by the Package. If you institute patent litigation (including a cross-claim or counterclaim) against any party alleging that the Package constitutes direct or contributory patent infringement,then this Artistic License to you shall terminate on the date that such litigation is filed.

Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.