Perl SOAP :: Lite服务器

Question

我在Perl中创建了以下SOAP :: Lite服务器：

use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
-> dispatch_to('Test')
-> handle;

package Test;
sub Calculate {

...

}

然后我创建了一个perl客户端来测试web服务，一切顺利。 但我必须创建一个包含有关此SOAP Web服务的信息的WSDL文件。当我在一个通用的在线SOAP客户端（http://www.soapclient.com/soaptest.html）中测试WSDL文件时，我开始遇到一些错误，关于方法Calculate的执行，所以我强迫使用这个方法：

SOAP::Transport::HTTP::CGI
    -> dispatch_to('Test')
    -> on_action(sub { ($first, $second, $third) = @_; print $third; }
    -> handle;

但现在我收到以下错误：

Denied access to method (Calculate) in class (main)

任何帮助都将不胜感激。