Perl 如何打印包裹代码？

我在使用perl脚本时遇到了一些困难，它有一个由自定义函数编码的模块（.pm），在模块加载到之前。cgi scrcript总是被解码

我甚至可以让它保持原样，但目前我必须对这个模块包含的子程序做一些更改，因为它是编码的，所以我无能为力/ 到目前为止，我已经尝试了几种方法，即：

#!/usr/bin/perl

use strict;
use lib '.';
use ModuleX;   ### This is encoded module which I need
use CGI::Carp qw(fatalsToBrowser);

不幸的是，$body只返回“；”作为结果；/我希望有可能得到这些方法代码，但我不知道我还能做什么

---

谢谢您的帮助。

您是否正在尝试在

ModuleX

软件包中解压

新的

方法？那么我相信你想说

my $body = $deparse->coderef2text(\&Modulex::new);

---

您是否正在尝试在

ModuleX

包中取消对

new

方法的授权？那么我相信你想说

my $body = $deparse->coderef2text(\&Modulex::new);

---

非常感谢你，暴徒；）非常感谢你，暴徒；）