File Coverage

blib/lib/Net/Detect.pm

Criterion	Covered	Total	%
statement	14	24	58.3
branch	0	6	0.0
condition	0	4	0.0
subroutine	5	6	83.3
pod	1	1	100.0
total	20	41	48.7

package Net::Detect;

use strict;
use warnings;

$Net::Detect::VERSION = '0.3';

use Net::Ping 2.41 ();

sub import {
    no strict 'refs';    ## no critic
    *{ caller() . '::detect_net' } = \&detect_net;
}

sub detect_net {
    my ( $host, $port, @new ) = @_;

    $host ||= 'www.google.com';
    $port ||= 80;
    $port = 80 if !abs( int($port) );

    my $np = Net::Ping->new( @new ? @new : 'syn' );
    $np->port_number($port);
    my $has_net = $np->ping($host);
    $np->close();

    return 1 if $has_net;
    return;
}

1;

__END__