File Coverage

blib/lib/Data/Semantic/Net/IPAddress/IPv6.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	6	8	75.0
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	45	47	95.7

use 5.008;
use strict;
use warnings;

package Data::Semantic::Net::IPAddress::IPv6;
BEGIN {
  $Data::Semantic::Net::IPAddress::IPv6::VERSION = '1.101760';
}
# ABSTRACT: Semantic data class for IPv6 addresses
use Net::IP qw/ip_is_ipv6 ip_iptype/;
use parent qw(Data::Semantic::Net::IPAddress);

sub is_valid_normalized_value {
    my ($self, $value) = @_;
    $self->SUPER::is_valid_normalized_value($value) && ip_is_ipv6($value);
}

sub is_internal {
    my ($self, $value) = @_;
    return unless defined $value;
    my $ip = Net::IP->new($value);
    return unless $ip;
    $ip->iptype ne 'GLOBAL-UNICAST';
}

sub normalize {
    my ($self, $value) = @_;
    my $ip = Net::IP->new($value);
    return undef unless $ip;
    $ip->short;
}

1;


__END__