example of set_string_class_member_data_value in perl

As a matter of fact... Yes I do...

classAPI is the handle. className does what it says on the tin. classMembers are classValues are the keys & values to set

sub addClassEntry {
  my($classAPI, $className, $classMembers, $classValues)=@_;
  my @stringInfoList=();

  print "addClassEntry: ($className) ($classMembers) ($classValues)\n";

  my $class_members = {name => $className, members => [$classMembers]};
  push(@stringInfoList, $class_members);

  print "addClassEntry: calling class->set_string_class_member_data_value()\n";

  $soapResponse=$classAPI->add_string_class_member(SOAP::Data->name(class_members => [$class_members]));
  $soapResponse=$classAPI->set_string_class_member_data_value(SOAP::Data->name(class_members => [$class_members]), SOAP::Data->name(values => [[$classValues]]));

  my($status,$text)=&checkResponse($soapResponse);

  print "addClassEntry: status[$status] text [$text]\n";
  if(($status!=1)||($text ne "OK")) {
    print "addClassEntry: status $status error [$text] from add_string_class_member()\n";
    exit(-1);
  }
  print "addClassEntry: status $status success [$text] from add_string_class_member()\n";

}