view release on metacpan or  search on metacpan

lib/VMware/API/LabManager.pm  view on Meta::CPAN

    -> proxy('https://' . $self->{hostname} . '/LabManager/SOAP/LabManager.asmx', timeout => $self->{ssl_timeout} );

  $self->{soap_priv} = SOAP::Lite
    -> on_action(sub { return "http://vmware.com/labmanager/" . $_[1]; } )
    -> default_ns('http://vmware.com/labmanager')
    -> proxy('https://' . $self->{hostname} . '/LabManager/SOAP/LabManagerInternal.asmx', timeout => $self->{ssl_timeout} );

  $self->{soap}->readable(1);
  $self->{soap_priv}->readable(1);

  $self->{auth_header} = SOAP::Header->new(
		name => 'AuthenticationHeader',
		attr => { xmlns => "http://vmware.com/labmanager" },
		value => { username => $self->{username}, password => $self->{password}, organizationname => $self->{orgname}, workspacename => $self->{workspace}  },
  );
}

### Public API methods

sub ConfigurationCapture {
  my $self       = shift @_;

t/02-header.t  view on Meta::CPAN

use Test;
use VMware::API::LabManager;
use strict;

BEGIN { plan tests => 11 };

my $labman = new VMware::API::LabManager (
  qw/username password localhost organizationname workspacename/
);

ok( ref $labman->{auth_header} eq 'SOAP::Header' );
ok( ref $labman->{auth_header}->{_value} eq 'ARRAY' );
ok( ref $labman->{auth_header}->{_value}->[0] eq 'HASH' );

my $header = $labman->{auth_header}->{_value}->[0];

for my $field ( qw/workspacename password organizationname username/ ) {
  ok( defined $header->{$field} );
  ok( $header->{$field} eq $field );
}