sub NetAddr {
my $self = shift;
+ new NetAddr::IP ($self->ip_gateway, $self->ip_netmask);
+}
+
+=item cidr
+
+Returns a CIDR string for this block's address and netmask, i.e. 10.4.20.0/24
- return new NetAddr::IP ($self->ip_gateway, $self->ip_netmask);
+=cut
+
+sub cidr {
+ my $self = shift;
+ $self->NetAddr->cidr;
}
=item next_free_addr
my $conf = new FS::Conf;
my @excludeaddr = $conf->config('exclude_ip_addr');
- my @used = (
- map { $_->NetAddr->addr }
- ($self,
- qsearch('svc_broadband', { blocknum => $self->blocknum }) ),
- @excludeaddr );
+my @used =
+( (map { $_->NetAddr->addr }
+ ($self,
+ qsearch('svc_broadband', { blocknum => $self->blocknum }))
+ ), @excludeaddr
+);
my @free = $self->NetAddr->hostenum;
while (my $ip = shift @free) {