File Coverage

blib/lib/Test2/Require/Internet.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	5	6	83.3
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	33	35	94.2

package Test2::Require::Internet;

use strict;
use warnings;
use IO::Socket::INET;
use parent qw( Test2::Require );

# ABSTRACT: Skip tests if there is no internet access
our $VERSION = '0.10'; # VERSION


sub skip
{
  my(undef, %args) = @_;
  return 'NO_NETWORK_TESTING' if $ENV{NO_NETWORK_TESTING};

  my @pairs = @{ $args{'-tcp'} || [ 'httpbin.org', 80 ] };
  while(@pairs)
  {
    my $host = shift @pairs;
    my $port = shift @pairs;

    my $sock = IO::Socket::INET->new(
      PeerAddr => $host,
      PeerPort => $port,
      Proto    => 'tcp',
    );

    return "Unable to connect to $host:$port/tcp" unless $sock;

    $sock->close;
  }

  undef;
}

1;

__END__