Util::ReadableProfiles - User friendly profile representation
use lib "$ENV{OPALORB_ROOT}";
use CORBA;
use CORBA::Exception;
use Util::ReadableProfiles;
...
my $rprofs = new Util::ReadableProfiles($obj);
my $count = $rprofs->count();
for(my $index = 0; $index < $count; $index++) {
my $prof = $rprofs->profile($index);
my $body = $$prof{'body'}; ## The profile body
my $endpoint = $$prof{'endpoint'}; ## The profile endpoint
...
}
This object takes in a CORBA::Object and extracts the profiles into a user friendly array of hash maps containing the individual profiles information.
new - This will create the Util::ReadableProfiles object and populate
the internal data members with the profile information of the object
passed in as the first and only parameter.
count - Returns the number of profiles stored.
profile - Returns the hash map at the index parameter within the array
containing the profile information.
The hash map contains the following keys:
body - The byte data of the profile.
endpoint - The endpoint information. This will be undef for unknown protocol types.
key - The object key.
major - The major version number.
minor - The minor version number.
protocol - The name of the profile protocol.
tag - The numeric representation of the profile protocol.
type - The type name of the object.