出口

package Bar;
use strict;
use warnings;

use Sub::Exporter -setup => {
    exports => [qw[ foo ]],
    groups  => {
        default => [qw[ foo ]],
    }
};

sub foo(){

};


1;

使用:

use strict;
use warnings;
use Bar  foo => { -as-> 'Foo' }; 

Sub::Exporter可以做很多很棒的事情,比如组导出、组排除、构建器方法(即:它导出的Sub的工作方式是由传递的参数决定的,Sub是在其他Sub内部生成的,等等)

• Sub::Exporter tutorial
• Sub::Exporter

更名

对于重命名对象,最好使用一个二级函数,该函数在调用Carp()时作为遗留函数,以推荐在任何地方指向它的代码移动到新方法。这将提高代码范围内的一致性。

然后,当测试停止发出警告时,可以删除遗留函数。

sub old {  # line 1
   Carp::carp('Legacy function \'old\' called, please move to \'newmethod\' '); 
   goto &newmethod; # this passes @_ literally and hides itself from the stack trace. 
} # line 4

sub newmethod { # line 6
   Carp::cluck('In New Method'); 
   return 5;
} # line 9

print old(), "\n";  # line 11

Legacy function 'old' called, please move to 'newmethod' at code.pl line 2
    main::old() called at code.pl line 11
In New Method at code.pl line 7
    main::newmethod() called at code.pl line 11
5

以下内容适合我。这似乎就是你所描述的;你一定是在什么地方出错了。

主脚本:

use strict;
use warnings;
use Bar;

baz();

模块:

package Bar;
use strict;
use warnings;

require Exporter;
our @ISA    = qw(Exporter);
our @EXPORT = qw(baz);

sub Baz { print "Baz() here\n" }

*baz = *Baz;

1;

如果希望两个名称都可见,则必须同时导出这两个名称。以迈克尔·卡曼的答案为基础,你需要

our @EXPORT = qw(Baz baz);

或

our @EXPORT    = qw(Baz);
our @EXPORT_OK = qw(baz);