=POD
=BEGIN PerlCtrl
    %TypeLib = (
        PackageName     => 'MyPackage::MyName',
        TypeLibGUID     => '{A3325260-2A29-11D2-AED0-00608C84AD4D}', # do NOT edit this line
        ControlGUID     => '{A3325261-2A29-11D2-AED0-00608C84AD4D}', # do NOT edit this line either
        DispInterfaceIID=> '{A3325262-2A29-11D2-AED0-00608C84AD4D}', # or this one
        ControlName     => 'MyApp.MyObject',
        ControlVer      => 1,  # increment if new object with same ProgID
                               # create new GUIDs as well
        ProgID          => 'MyApp.MyObject',
        DefaultMethod   => 'MyMethodName1',
        Methods         => {
            'MyMethodName1' => {
                    RetType             =>  VT_I4,
                    TotalParams         =>  5,
                    NumOptionalParams   =>  2,
                    ParamList           =>[ 'ParamName1' => VT_I4,
                                            'ParamName2' => VT_BSTR,
                                            'ParamName3' => VT_BOOL,
                                            'ParamName4' => VT_I4,
                                            'ParamName5' => VT_UI1 ]
                },
            'MyMethodName2' => {
                    RetType             =>  VT_I4,
                    TotalParams         =>  2,
                    NumOptionalParams   =>  0,
                    ParamList           =>[ 'ParamName1' => VT_I4,
                                            'ParamName2' => VT_BSTR ]
                },
            },  # end of 'Methods'
        Properties      => {
            'MyIntegerProp' => {
                    Type                => VT_I4,
                    ReadOnly            => 0,
                },
            'MyStringProp' => {
                    Type                => VT_BSTR,
                    ReadOnly            => 0,
                },
            'Color' => {
                    Type                => VT_BSTR,
                    ReadOnly            => 0,
                },
            'MyReadOnlyIntegerProp' => {
                    Type                => VT_I4,
                    ReadOnly            => 1,
                },
            },  # end of 'Properties'
        );  # end of %TypeLib
=END PerlCtrl
=cut