File Coverage

blib/lib/Net/Async/Ping.pm

Criterion	Covered	Total	%
statement	20	22	90.9
branch	2	14	14.2
condition	1	2	50.0
subroutine	5	5	100.0
pod	1	1	100.0
total	29	44	65.9

package Net::Async::Ping;
$Net::Async::Ping::VERSION = '0.004001';
use strict;
use warnings;

# ABSTRACT: asyncronously check remote host for reachability

use Module::Runtime 'use_module';
use namespace::clean;

my %method_map = (
   tcp    => 'TCP',
   icmp   => 'ICMP',
   icmpv6 => 'ICMPv6',
);

sub new {
   my $class = shift;

   my $method = shift || 'tcp';

   die "The '$method' proto of Net::Ping not ported yet"
      unless $method_map{$method};

   my @args;
   if (ref $_[0]) {
      @args = (%{$_[0]})
   } else {
      my ($default_timeout, $bytes, $device, $tos, $ttl) = @_;

      @args = (
         (@_ >= 1 ? (default_timeout => $default_timeout) : ()),
         (@_ >= 2 ? (bytes => $bytes) : ()),
         (@_ >= 3 ? (device => $device) : ()),
         (@_ >= 4 ? (tos => $tos) : ()),
         (@_ >= 5 ? (ttl => $ttl) : ()),
      )
   }
   use_module('Net::Async::Ping::' . $method_map{$method})->new(@args)
}

1;

__END__