sub new ($$;$)
{
    my $invocant = shift;
    my $type = ref($invocant) || $invocant || __PACKAGE__;
    my $obj = bless({}, $type);
    my @args = (ref($invocant)) ? $invocant->cidr() : @_;
    return $obj->SUPER::new(@args);
}