Unique id
PhilipRBrenan@yahoo.com, 2004, Perl license
Example t/unique.t
#_ Unique _____________________________________________________________
# Unique
# philiprbrenan@yahoo.com, 2004, Perl License
#______________________________________________________________________
use Math::Zap::Unique;
use Test::Simple tests=>3;
ok(unique() ne unique());
ok(unique() ne unique());
ok(unique() ne unique());
Returns a unique id each time it is called.
package Math::Zap::Unique; $VERSION=1.03; use Carp;
Return new unique id
my $unique = 0;
sub unique() {++$unique}
Return new unique id, synonym for unique
sub new {unique()}
Export unique
use Math::Zap::Exports qw( unique () ); #_ Unique _____________________________________________________________ # Package loaded successfully #______________________________________________________________________ 1;
Perl License.