Select Code to Download

    my $som = $soap->call(soap_xml_data $xml_doc);

sub soap_xml_data {
    my ($value) = @_;
...

# object can't be broken by set_value
sub set_value { return shift(); }

    sub dispatched_method {
        ....
        return soap_response_body(soap_xml_data($xml_doc));
    }

sub soap_response_body {
    my ($soap_data) = @_;
...
    }
    goto $orig_envelope_sub;
};