Soap::Lite Authentication

[Anonymous Monk]

The soap service that I'm trying to connect to has implemented a username and password layer:

  <soap:Header>
    <AuthenticationHeader xmlns="http://www.server.com/">
      <username>string</username>
      <password>string</password>
    </AuthenticationHeader>
  </soap:Header>

I've got working c# (shudder) code:

    DataSet ds = new DataSet();            
    theGeoData.AuthenticationHeader auth = new theGeoData.Authenticati
+onHeader();
    theGeoData.GetData theAd = new
    theGeoData.GetData();
    auth.username = "user";
    auth.password = "pass";
    theAdds.AuthenticationHeaderValue = auth;
    ds = theAdds.GetIt();

But my perl code won't authenticate, in fact I get nothing back. I've tried passing the user:pass in the url, and I've tried it with the Transport sub. My code is below. I keep getting the error "Can't call method "GetData" on an undefined value"

sub SOAP::Transport::HTTP::Client::get_basic_credentials { 
    return 'username' => 'user';
    return 'password' => 'pass';    
}

and

            -> service('http://user:pass@server/GetData.asmx?WSDL');

My soap code:

    eval {
        $service = SOAP::Lite
            -> service('http://server/GetData.asmx?WSDL');
    };  #|| ($_); # $@ will have the error message, perldoc -f eval

    $service -> GetData();
    my $som = $service -> call || &soapGetBad();