File Coverage

blib/lib/SOAP/XML/Client/DotNet.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package SOAP::XML::Client::DotNet;
$SOAP::XML::Client::DotNet::VERSION = '2.8';
use strict;
use Carp;
use Scalar::Util qw(weaken);

use base qw(SOAP::XML::Client);

# The actual call to a .net server
sub _call {
    my ( $self, $method ) = @_;

    # No, I don't know why this has to be a sub, it just does,
    # it's to do with the on_action which .net requires so it
    # submits as $uri/$method, rather than $uri#$method

    my $this = $self;
    weaken($this);    # weaken to avoid circular references
    my $soap_action = sub { return $this->uri() . '/' . $method };

    my $caller;
    eval {
        $caller
            = $self->{soap}->uri( $self->uri() )
            ->proxy( $self->proxy(), timeout => $self->timeout() )
            ->encoding( $self->encoding )->on_action($soap_action);
    };
    if ($@) {
        warn "error for uri:" . $self->uri . "\n";
        die $@;
    }

    $caller->soapversion( $self->soapversion() );

    # Create a SOAP::Data node for the method name
    my $method_name
        = SOAP::Data->name($method)->attr( { 'xmlns' => $self->xmlns() } );

    my @params = ( $self->{sdb}->to_soap_data() );
    unshift( @params, $self->header() ) if $self->header();

    # Execute the SOAP Request and get the resulting XML
    my $res = $caller->call( $method_name => @params );

    return $res, $caller->transport;
}

1;

__END__