Repository List / virtm / trunk / Virtm.pm @ HEAD

package Virtm;

use Data::UUID;
my $oido;

INIT {
	$oido = Data::UUID->new();
}

sub OID {	
	my $type = shift;

	return $oido->create_from_name_str(NameSpace_OID, $type);
}

sub OID_as_bin {
	my $oid = shift;
	return $oido->from_string($oid);
}

sub OIDbin_as_str {
	my $oid = shift;
	return $oido->to_string($oid);
}

1;