如何打印出包装代码？

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); 

Unfortunatelly $ body returns only“;”结果; /我希望能够得到这些方法代码，但我不知道我还能做什么。

感谢您的帮助。

Answer 1

您是否试图对ModuleX包中的new方法进行分解？那么我相信你想说

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