use NetAddr::IP::Lite;
my %w = ('default' => [ '255.255.255.254', '0.0.0.0' ],
'loopback' => [ '127.255.255.254', '255.0.0.0' ],
'127.0.0.1/8' => [ '127.255.255.254', '255.0.0.0' ],
'10.' => [ '10.255.255.254', '255.0.0.0' ],
'10.10.10/24' => [ '10.10.10.254', '255.255.255.0' ],
);
$| = 1;
print '1..', (2 * scalar keys %w), "\n";
my $count = 1;
for my $a (keys %w) {
my $ip = NetAddr::IP::Lite->new($a)->last;
if ($ip->addr eq $w{$a}->[0]) {
print "ok ", $count++, "\n";
}
else {
print "not ok ", $count++, "\n";
}
if ($ip->mask eq $w{$a}->[1]) {
print "ok ", $count++, "\n";
}
else {
print "not ok ", $count++, "\n";
}
}