# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --

# used by PerlCtrl for creating standalone COM interface

package SOAP::Lite::COM;

use SOAP::Lite;

use URI::_foreign;
use URI::http;
use URI::https;
use LWP::Protocol::http;
use LWP::Protocol::https;
use LWP::Authen::Basic;
use LWP::Authen::Digest;
use HTTP::Daemon; 
use Compress::Zlib;
use XML::Parser;
use SOAP::Transport::HTTP;
use XMLRPC::Lite;
use XMLRPC::Transport::HTTP;

__END__

=pod

=begin PerlCtrl

    %TypeLib = (
	PackageName     => 'SOAP::Lite::COM',
	TypeLibGUID     => '{35794C5E-478D-4746-81FA-CF0194CC2417}', # do NOT edit this line
	ControlGUID     => '{A0FE6F60-95D4-435B-98AE-93475FDCAA83}', # do NOT edit this line either
	DispInterfaceIID=> '{23767C1D-DA9B-4FAC-A6B3-3639F8CC0C29}', # or this one
	ControlName     => 'SOAP.Lite',
	ControlVer      => 0.52,  # increment if new object with same ProgID
	ProgID          => 'SOAP.Lite',
	DefaultMethod   => 'new',
	Methods         => {
	    'new' => {
		RetType             =>  VT_DISPATCH,
		TotalParams         =>  0,
		NumOptionalParams   =>  0,
		ParamList           =>[ ]
	    },
	    'create' => {
		RetType             =>  VT_DISPATCH,
		TotalParams         =>  0,
		NumOptionalParams   =>  0,
		ParamList           =>[ ]
	    },
	    'soap' => {
		RetType             =>  VT_DISPATCH,
		TotalParams         =>  0,
		NumOptionalParams   =>  0,
		ParamList           =>[ ]
	    },
	    'xmlrpc' => {
		RetType             =>  VT_DISPATCH,
		TotalParams         =>  0,
		NumOptionalParams   =>  0,
		ParamList           =>[ ]
	    },
	    'server' => {
		RetType             =>  VT_DISPATCH,
		TotalParams         =>  0,
		NumOptionalParams   =>  0,
		ParamList           =>[ ]
	    },
	    'instanceof' => {
		RetType             =>  VT_DISPATCH,
		TotalParams         =>  0,
		NumOptionalParams   =>  0,
		ParamList           =>[ ]
	    },
	    'hash' => {
		RetType             =>  VT_DISPATCH,
		TotalParams         =>  0,
		NumOptionalParams   =>  0,
		ParamList           =>[ ]
	    },
	    'data' => {
		RetType             =>  VT_DISPATCH,
		TotalParams         =>  0,
		NumOptionalParams   =>  0,
		ParamList           =>[ ]
	    },
	    'header' => {
		RetType             =>  VT_DISPATCH,
		TotalParams         =>  0,
		NumOptionalParams   =>  0,
		ParamList           =>[ ]
	    },
	},  # end of 'Methods'
	Properties      => {
	},  # end of 'Properties'
    );  # end of %TypeLib

=end PerlCtrl