如何打印出包裹代码？

Question

我对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只返回“;”结果; /我希望有可能获得这些方法代码，但我不知道我还能做什么。

感谢您的帮助。

Answer 1

您是否试图解析new包中的ModuleX方法？然后我相信你想说

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