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.07; 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;
philiprbrenan@yahoo.com
philiprbrenan@yahoo.com, 2004
Perl License.
To install Math::Zap::Draw, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Math::Zap::Draw
CPAN shell
perl -MCPAN -e shell install Math::Zap::Draw
For more information on module installation, please visit the detailed CPAN module installation guide.