lsid-perl

 view release on metacpan or  search on metacpan

lib/LS/HTTP/Service.pm  view on Meta::CPAN

		return undef;
	}

	my @ret;
	if (ref $response eq 'LS::SOAP::Response') {

		if ($response->expires) {

			push(
				@ret, undef
				#SOAP::Header->name(expires => $response->expires)
					    #->prefix($METHOD_PREFIX)
					    #->uri($URI)			
			);
		}
	}
	
	return @ret;
}

lib/LS/HTTP/Service.pm  view on Meta::CPAN

		$response->to_http_response;

		return undef;
	}

	my @ret;
	if (ref $response eq 'LS::HTTP::Response') {
		if ($response->expires) {
			push(
				@ret, undef
				#SOAP::Header->name(expires => $response->expires)
					    #->prefix($METHOD_PREFIX)
					    #->uri($URI)			
			);
		}
	}

	return @ret;
}

lib/LS/SOAP/Service.pm  view on Meta::CPAN

		bless $services, 'LS::SOAP::Fault';
		die $services->fault();
	}

	my @ret;

	if ($services->expiration()) {

		push(
			@ret,
			SOAP::Header->name(expiration=> $services->expiration())
				    ->prefix($METHOD_PREFIX)
				    ->uri(${LS::Authority::WSDL::Constants::SCHEMA_TYPES})			
		);
	}

	return (build MIME::Entity(Data=> $services->response()), @ret);
}


sub getMetadata {

lib/LS/SOAP/Service.pm  view on Meta::CPAN

	}

	my @ret;

	#
	# Expiration is optional
	#
	if ($metadata->expiration()) {
		push(
			@ret,
			SOAP::Header->name(expiration=> $metadata->expiration())
				    ->prefix($METHOD_PREFIX)
				    ->uri(${LS::Authority::WSDL::Constants::SCHEMA_TYPES})			
		);
	}

	#
	# Metadata needs a type
	#
	unless($metadata->format()) {