use Net::NameGoesHere::IPAddress;

my $ip = Net::NameGoesHere::IPAddress->new( address => '1.2.3.4' );
print $ip->as_string;
print $ip->as_integer;
print $ip->as_bit_string;

my $next = $ip->next_ip();
my $prev = $ip->previous_ip();

if ( $ip < $next ) { .. }

my @ips = sort ( $next, $prev, $ip );

# All the same operations work with IPv6 as with IPv4
my $ip = Net::NameGoesHere::IPAddress->new( address => 'ffff::a:1234' );

my $ip = Net::NameGoesHere::IPAddress->new_from_integer(
    integer => 0,
    version => 4,
);

use bigint;
my $ip = Net::NameGoesHere::IPAddress->new_from_integer(
    integer => 2**128 - 1,
    version => 6,
);

use Net::NameGoesHere::Subnet;

my $net = MM::Net::Subnet->new( subnet => '1.1.1.0/28' );
print $net->as_string;
print $net->netmask; # 28

# first & last include network & broadcast addresses
my $first_ip = $net->first(); # 1.1.1.0
my $last_ip = $net->last(); # 1.1.1.15

my $iter = $net->iterator();
while ( my $ip = $iter->() ) { ... }

my $net = MM::Net::Subnet->new( subnet => '1.1.1.4/32' );
print $net->max_netmask; # 30

# IPv4 and IPv6 subnets work exactly the same way
my $net = MM::Net::Subnet->new( subnet => 'ffff:ff00::/105' );

my @subnets = MM::Net::Subnet->range_as_subnets( '1.1.1.1', '1.1.1.32' );
print $_->as_string, "\n" for @subnets;
# 1.1.1.1/32
# 1.1.1.2/31
# 1.1.1.4/30
# 1.1.1.8/29
# 1.1.1.16/28
# 1.1.1.32/32

# Removes reserved subnets like 10.0.0.0/8 as part of the splitting process
my @subnets = MM::Net::Subnet->range_as_subnets( '1.1.1.0', '255.255.255.255' );

This is a distro we created in-house to make it easier to work with IP addresses and subnets. There was no single module or distro that did everything we wanted.

The code in question is in the top-level lib and t dirs of the linked repo.

Right now this is a wrapper around the NetAddr-IP module, but in the future it's possible we'd write out own code from scratch (yay, tests). Our API smooths over a lot of crazy rough edges in NetAddr::IP and makes sure everything "just works" for IPv4 and IPv6.

What we really need is a name for this distro.

It covers both single address and subnets, and the existing modules on CPAN have used up basically every good name.

I was thinking of something like Net::Sweet or Net::Sane but I'm open to something better.