Kyle Mathers > Siebel-Integration-Com-0.02 > Siebel::Integration::Com::BusObj

Download:
Siebel-Integration-Com-0.02.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Source  

NAME ^

Siebel::Integration::Com::BusObj - Abstraction of Siebel Business Object

SYNOPSIS ^

        use Siebel::Integration::Com;
        
        my $SiebelApp = Siebel::Integration::Com->new(
                        ConnectionType=>'Thick', 
                        UserName=>$inputs{user}, 
                        PassWord=>$inputs{pass}, 
                        CFG=>$inputs{cfg}, 
                        DataSource=>$inputs{DataSource}
                );
                                                                                                                                        
        my $BO = $SiebelApp->GetBusObject('Employee');
        if($BO->Error eq ''){
                print "I got some BO\n";
        }else{
                die print 'Failed to get BO!';
        }

        #See Siebel::Integration::Com::BusComp for BC details
        my $BC = $BO->GetBusComp('Employee');
        if($BC->Error eq ''){
                print "I have the Employee BC\n";
        }else{
                die print 'Failed to get Employee BC!';
        }

DESCRIPTION ^

The Siebel::Integration::Com modules are designed to remove the different method calls and error checking between the COM Data Control and COM Data Server interfaces. Changing between the two interfaces only requires a change in the parameters to Siebel::Integration::Com->new() rather than a rewrite of all calls. Beyond just replicating the base functions of the interfaces it is hoped that additional methods will be added to these modules to extend the functionality provided by the Siebel COM framework.

All methods that have been exposed keep the same names so there is no additional learning curve, you can program in Perl using the same method names as eScript

Base Methods

BO->GetBusComp(BusCompName)
        Returns a Siebel::Integration::Com::BusComp object
        Sets BusComp->Error if an error occurs
BO->Error()
        Returns the error text for the last operation, returns '' if no error.
New(Name=>'BusObjName', ConnectionType=>'Thin/Thick', SApp=>Siebel::Integration::Com)
        Only called internally from Siebel::Integration::Com->GetBusObject()
        Returns a Siebel::Integration::Com::BusObj object
        Sets BO->Error if an error occurs

REQUIREMENTS ^

See Siebel::Integration::Com

TESTING ^

See Siebel::Integration::Com

SEE ALSO ^

The documentation for Siebel::Integration::Com contains additional information

AUTHOR ^

Kyle Mathers, <kyle.perl at mathersit.com>

COPYRIGHT ^

The same as Siebel::Integration::Com

VERSION ^

Version 0.02 March 2013

syntax highlighting: