File Coverage

blib/lib/Net/IP/Checker.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	7	8	87.5
condition	2	3	66.6
subroutine	7	7	100.0
pod	3	3	100.0
total	38	41	92.6

#ABSTRACT: IPv4/IPv6 addresses validator


package Net::IP::Checker;
$Net::IP::Checker::VERSION = '0.01';
use strict;
use warnings;
use Regexp::IPv6 qw($IPv6_re);
use Regexp::IPv4 qw($IPv4_re);

require Exporter;

our @ISA         = qw(Exporter);
our @EXPORT_OK   = qw(ip_get_version ip_is_ipv4 ip_is_ipv6);
our %EXPORT_TAGS = ( 'ALL' => [@EXPORT_OK] );


sub ip_get_version {
    my $ip = shift;
    $ip !~ /:/ and ip_is_ipv4($ip) and return '4';
    ip_is_ipv6($ip) and return '6';
    return;
}


sub ip_is_ipv4 {
    my $ip = shift;
    return $ip =~ /^$IPv4_re$/ ? 1 : 0;
}


sub ip_is_ipv6 {
    my $ip = shift;
    return $ip =~ /^$IPv6_re$/ ? 1 : 0;
}

__END__