view release on metacpan or  search on metacpan

t/xisbn.t  view on Meta::CPAN

# I'm assuming that when the service disappears, this host will be
# unreachable
BEGIN {
	require IO::Socket;

	my $host = 'xisbn.worldcat.org';

	my $socket = IO::Socket::INET->new(
		PeerAddr => "$host:80",
		Timeout  => 5,
		);

	unless( $socket )
		{
		print STDERR <<"HERE";

--------------------------------------------------------
I cannot run these tests unless I can connect to $host.
You may not be connected to the network or the host may
be down.