# ここで使用する構文は、ActiveState ビルド 522 と互換性があります。
use Win32::OLE;
# 最上位の Rational ClearCase オブジェクトに接続します。
my $cc = Win32::OLE->new('ClearCase.Application')
or die "Could not create Application object¥n";
# バージョンから発生しているブランチをループし、そのパス (ICCBranch
# のデフォルト プロパティを使用) およびその他の情報を表示します。
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");
}