package Typelibs;

use warnings;
use strict;

use Win32::OLE::Const;

# list of all registered type libraries
my @Library;

Win32::OLE::Const->EnumTypeLibs(sub {
    my ($clsid,$title,$version,$langid,$filename) = @_;
    return unless $version =~ /^([0-9a-fA-F]+)\.([0-9a-fA-F]+)$/;
    my ($maj,$min) = (hex($1), hex($2));
    push @Library, [$clsid,$title,$maj,$min,$langid,$filename];
});

sub ExistsTypeLib {
	my $typelib = shift;
	for my $lib (@Library) {
		return @$lib	if($lib->[1] =~ /^$typelib/);
	}
	return undef;
}

1;