Select Code to Download

sub wsdl {
    my $self = shift;
...
        return $full_response ? $r : $r->{parameters};
    };
}

$self->cc($method_name)->(%args);

my $r = eval { $f->( @_ ) };
unless ($r) {
  my $err = $@;
  confess "Error calling SOAP method $op: $err";
}

            my $r = eval {
              my $tmp = $f->( @_ );
...
                }
                confess "Error calling SOAP method $op: [$err][$eval_e
+rr]";
            }