File Coverage

lib/WWW/Selenium/Util.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	1	2	50.0
condition	2	4	50.0
subroutine	5	5	100.0
pod	1	1	100.0
total	25	28	89.2

package WWW::Selenium::Util;
{
  $WWW::Selenium::Util::VERSION = '1.36';
}
# ABSTRACT: Utility code to help test using Selenium

use strict;
use warnings;
use IO::Socket;
use base 'Exporter';
our @EXPORT_OK = qw(server_is_running);


sub server_is_running {
    my $host = $ENV{SRC_HOST} || shift || 'localhost';
    my $port = $ENV{SRC_PORT} || shift || 4444;

    return ($host, $port) if IO::Socket::INET->new(
        PeerAddr => $host,
        PeerPort => $port,
    );
    return;

}

1;

__END__