File Coverage

blib/lib/Data/Semantic/Net/IPAddress/TestData/IPv4.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	18	100.0

use 5.008;
use strict;
use warnings;

package Data::Semantic::Net::IPAddress::TestData::IPv4;
BEGIN {
  $Data::Semantic::Net::IPAddress::TestData::IPv4::VERSION = '1.101760';
}
# ABSTRACT: Test data class for the IPv4 address semantic data class
use constant TESTDATA => (
    {   args  => { forbid_internal => 0 },
        valid => [
            qw(
              127.0.0.1
              131.130.249.31
              10.0.1.3
              192.168.1.3
              198.51.100.0
              198.51.100.23
              198.51.100.255
              203.0.113.0
              203.0.113.23
              203.0.113.255
              192.0.2.0
              192.0.2.23
              192.0.2.255
              )
        ],
        invalid => [
            qw(
              127.0
              )
        ],
        normalize => {
            '213.160.065.064' => '213.160.65.64',
            '213.065.064'     => undef,
        },
    },
    {   args  => { forbid_internal => 1 },
        valid => [
            qw(
              131.130.249.31
              )
        ],
        invalid => [
            qw(
              127.0
              127.0.0.1
              10.0.1.3
              192.168.1.3
              198.51.100.0
              198.51.100.23
              198.51.100.255
              203.0.113.0
              203.0.113.23
              203.0.113.255
              192.0.2.0
              192.0.2.23
              192.0.2.255
              )
        ],
    },
);
1;


__END__