base.pmなんだけど、

sub get_fields {
() = \%{$_[0].'::FIELDS'};
return \%{$_[0].'::FIELDS'};
}

「() =」これって何してるんでしょう？
perl5.003で動作するように書き換えられないかな？