Unique

Unique id

PhilipRBrenan@yahoo.com, 2004, Perl license

Synopsis

#example t/unique.t

Description

Returns a unique id each time it is called.

 package unique;
 use Carp;
 

Constructors

unique

Return new unique id

 my $unique = 0;
 
 sub unique() {++$unique}
 

new

Return new unique id, synonym for "unique"

 sub new {unique()}
 

Exports

Export "unique"

 use exports qw(
   unique ()
  );
 
 #_ Unique _____________________________________________________________
 # Package loaded successfully
 #______________________________________________________________________
 
 1;