1#@!#!123s

: / kunden / proc / self / root / usr / share / doc / libsoap-lite-perl / examples / COM /
Filename : SOAP-Lite-COM-minimal.ctrl
back
# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --

# used by PerlCtrl for creating minimal COM interface

package SOAP::Lite::COM;

use SOAP::Lite;

__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