[NetScript CVS] CVS: netscript2/src/perl/NetScript/Util UIDGenerator.pm,NONE,1.1

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Util
In directory usw-pr-cvs1:/tmp/cvs-serv26609

Added Files:
	UIDGenerator.pm 
Log Message:
* added a generator for Unique IDs

--- NEW FILE: UIDGenerator.pm ---
#--------------------------------------------------------
# $Id: UIDGenerator.pm,v 1.1 2002/05/09 19:13:03 derkork Exp $
# 
# Class UIDGenerator
# 
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;

#/**
# The UIDGenerator generates unique IDs for any purpose.
# The UIDGenerator uses <code>Time::HiRes</code> for generation
# of IDs. The IDs are guaranteed to be unique for the same host.
#*/
package NetScript::Util::UIDGenerator;
use vars qw($VERSION);

use Time::HiRes qw( time );
#/**
# Ctor.
#*/
sub new {
    my ($proto ) = @_;
    my $proto = shift;                  # get Prototype
    my $class = ref( $proto ) || $proto;# get the Classname
    my $this = {};
    bless( $this, $class );             # create Object
    return $this;                       # return Object
    }

#/**
# Returns a scalar holding a unique ID.
# @return a scalar.
# @public
#*/
sub createUID {
    my ( $this ) = @_;
    "$$-$^T-".time()."-".rand();
    }

1; # make require happy