# The syntax used here was compatible with ActiveState build 522.
use Win32::OLE;
# Connect to the top-level ClearCase object
my $cc = Win32::OLE->new('ClearCase.Application')
or die "Could not create Application object\n";
# Loop over the branches sprouting from a version and display their
# paths using the default property of ICCBranch, and other information
my $ver = $cc->Version("b:\\caroltest\\testelem.c@@\\main\\0")
or die("Could not get version: ", Win32::OLE->LastError(), "\n");
my $path = $ver->Path;
my $subbranches = $ver->SubBranches;
my $enum = Win32::OLE::Enum->new($subbranches);
while (defined(my $branch = $enum->Next)) {
print($branch->Path, " branch sprouting from ", $path, " has ",
$branch->Versions->Count, " version(s); latest version is ",
$branch->LatestVersion->VersionNumber, "\n");
}