view release on metacpan or  search on metacpan

examples/calculator.psgi  view on Meta::CPAN

        notice sprintf "Response\n---\n%s %s\n%s\n%s---",
            $res->status, HTTP::Status::status_message($res->status),
            $res->headers->as_string,
            $res->body;
    },
);


$daemon->operationsFromWSDL(
    $wsdl,
    callbacks => {
        add => sub {
            my ($soap, $data) = @_;
            return +{
                Result => $data->{parameters}->{x} + $data->{parameters}->{y},
            };
        },
        subtract => sub {
            my ($soap, $data) = @_;
            return +{
                Result => $data->{parameters}->{x} - $data->{parameters}->{y},