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.