diff options
Diffstat (limited to 'FS/FS/addr_block.pm')
-rwxr-xr-x | FS/FS/addr_block.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/FS/FS/addr_block.pm b/FS/FS/addr_block.pm index 1fb6060..208684b 100755 --- a/FS/FS/addr_block.pm +++ b/FS/FS/addr_block.pm @@ -158,8 +158,18 @@ Returns a NetAddr::IP object for this block's address and netmask. 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 |