在perl中获取调用者模块代码

Question

如何从perl中的调用者模块获取实际代码？

some_module.pm

package some_module;

use my_module;

CODE
CODE

my_module.pm

package my_module;

sub import {

  my $package = caller;

  my $code = actual perl code of some_module.pm;

}

这可能，还是我必须使用open功能？我认为源过滤器会做类似的事情。