sub ip  { $_[0]->{ip}   //= $_[1] // $_[0]->{conf}{ip}   // '0.0.0.0' }
sub port{ $_[0]->{port} //= $_[1] // $_[0]->{conf}{port} // '7800'    }

##</code><code>##

eval <<EOA for [ 'ip', '0.0.0.0' ], [ 'port', '7800' ];
sub $_->[0] { \$_[0]->{$_->[0]} //= \$_[1] // \$_[0]->{conf}{$_->[0]} // \"$_->[1]\" }
EOA