Perl包完全限定名称解析：CGI::MultipartBuffer变量疑问

两个变量的完全限定名 #

• $MultipartBuffer::INITIAL_FILLUNIT：完全限定名为 $main::MultipartBuffer::INITIAL_FILLUNIT。Perl中未明确指定顶级包的包名默认隶属于main包，所以这里的MultipartBuffer是独立于CGI::MultipartBuffer的另一个包（属于main命名空间）。
• $INITIAL_FILLUNIT：在package CGI::MultipartBuffer;代码块的作用域内，它的完全限定名为$CGI::MultipartBuffer::INITIAL_FILLUNIT——Perl会自动将当前包名作为未指定包前缀的变量的命名空间。

赋值语句的作用 #

这段代码的逻辑清晰明确：

1. $MultipartBuffer::INITIAL_FILLUNIT ||= 1024 * 4;：给main::MultipartBuffer::INITIAL_FILLUNIT设置默认值，仅当该变量未被定义或值为假时生效。
2. $INITIAL_FILLUNIT = $MultipartBuffer::INITIAL_FILLUNIT;：将main包下的变量值同步到当前CGI::MultipartBuffer包的同名变量中。

这种设计大概率是为了兼容旧代码——早期版本中这个配置变量可能定义在MultipartBuffer（即main::MultipartBuffer）包下，后续重构时迁移到了CGI::MultipartBuffer包，通过赋值方式既保留了对旧用法的兼容，又让新代码可以使用当前包的变量。

内容的提问来源于stack exchange，提问作者snoopyjc