Devuelve un número de versión para la API. El número de versión principal aumenta cada vez que se realiza un cambio incompatible en la API. Se debe comprobar el número principal como parte de una interacción inicial con ClearQuest con el objeto de garantizar que la API sea compatible con lo que espera el llamador.
Perl
$prodinfo->GetObjectModelVersionMajor();
Perl
use CQPerlExt;
my $cqobject = CQSession::Build();
my $prodinfo = $cqobject->GetProductInfo();
print $prodinfo->GetObjectModelVersionMajor(),"\n";
CQSession::Unbuild($cqobject);