File Coverage

blib/lib/IO/K8s/Types/Net.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition	4	6	66.6
subroutine	9	9	100.0
pod	0	3	0.0
total	43	48	89.5

package IO::K8s::Types::Net;
# ABSTRACT: Type::Tiny constraints for IP addresses and CIDR notation
our $VERSION = '1.009';
use v5.10;
use Type::Library -base, -declare => qw( IPv4 IPv6 IPAddress CIDR NetIP );
use Type::Utils -all;
use Types::Standard -types;
use Net::IP ();
use Exporter 'import';

our @EXPORT_OK = qw( parse_ip cidr_contains is_rfc1918 );

declare IPv4, as Str, where {
    !/\// && do { my $ip = Net::IP->new($_, 4); defined $ip && $ip->version == 4 };
}, message { "'$_' is not a valid IPv4 address" };

declare IPv6, as Str, where {
    !/\// && do { my $ip = Net::IP->new($_, 6); defined $ip && $ip->version == 6 };
}, message { "'$_' is not a valid IPv6 address" };

declare IPAddress, as Str, where {
    !/\// && defined Net::IP->new($_);
}, message { "'$_' is not a valid IP address" };

declare CIDR, as Str, where {
    /\// && defined Net::IP->new($_);
}, message { "'$_' is not valid CIDR notation" };

declare NetIP, as InstanceOf['Net::IP'];
coerce NetIP, from Str, via { Net::IP->new($_) };

sub parse_ip {
    my ($str) = @_;
    return Net::IP->new($str);
}

sub cidr_contains {
    my ($cidr_str, $ip_str) = @_;
    my $cidr = Net::IP->new($cidr_str) or return 0;
    my $ip   = Net::IP->new($ip_str)   or return 0;
    my $overlap = $ip->overlaps($cidr);
    return defined $overlap && ($overlap == $Net::IP::IP_A_IN_B_OVERLAP || $overlap == $Net::IP::IP_IDENTICAL);
}

sub is_rfc1918 {
    my ($ip_str) = @_;
    return cidr_contains('10.0.0.0/8', $ip_str)
        || cidr_contains('172.16.0.0/12', $ip_str)
        || cidr_contains('192.168.0.0/16', $ip_str);
}

1;

__END__