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.