perl - 如何在 perl 中编写覆盖导入函数的模块函数

Question

我有一个问题:我想为我的模块 M 编写一个名为“copy”的方法。这个函数是导入函数 File::Copy::copy 的包装。所以我必须使用 File::Copy::copy 并定义我自己的副本。但是它会报错说复制被重新定义了。如何实现我的目标？

#M.pm
package M;
use File::Copy;

#... constructor and other methods

sub copy {
  my $self = shift;
  my $target = shift;
  File::Copy::copy($self->{'PATH'},$target);
}

Answer 1

use File::Copy qw( );  # Don't import anything.