如何打印出包裝代碼？

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