将怪物Perl模块重构为子模块的好方法是什么？

我有一个项目的Perl模块.我可能有十几个程序挂起来,其中很多都是垃圾.我以前没有和DBI花费太多个人时间,所以这部分是可以修复的,但最重要的是它很大.字面上2KLOCs.

很容易将这个函数(我们称之为Dumb.pm)分解为单独的模块(Dumb :: FormTools,Dumb :: Database等),除了我说的,有很多程序已经使用了Dumb; “

我想通过Dumb导出Dumb :: Database的可导出函数,而不必一遍又一遍地改变它：

sub my_dumb_function { return Dumb::Database::my_dumb_function( @_ ) ; }

并不是说我高于那个.只是这似乎是处理问题的愚蠢和不雅的方式.我曾经使用过“不要不知道更好”的借口,而且一次真的比你得到的还要多.救命？

package Dumb;

use Dumb::Database qw(my_dumb_function);

1;

package Dumb::Database;

use base qw(Exporter);

our @EXPORT_OK = qw(my_dumb_function);

sub my_dumb_function { 1; }

1;