/ 
Number-YAUID-1.31
River stage zero No dependents
/ Number::YAUID

NAME

Number::YAUID - A decentralized unique ID generator (int64)

SYNOPSIS

use Number::YAUID;

my $object = Number::YAUID->new("/tmp/lock.file", "/etc/node.id");
# OR
#my $object = Number::YAUID->new("/tmp/lock.file", undef, node_id => 321);
die get_error_text_by_code($object->get_error_code()) if $object->get_error_code();

print "Max inc on sec: ", get_max_inc(), "\n";
print "Max node id: ", get_max_node_id(), "\n";
print "Max timestamp: ", get_max_timestamp(), "\n";

foreach (0..5000)
{
	my $key = $object->get_key();
	die get_error_text_by_code($object->get_error_code()) if $object->get_error_code();
	
	print "key: ", $key, "\n";
	print "\ttimestamp: ", $object->get_timestamp_by_key($key), "\n";
 	print "\tnode id: "  , $object->get_node_id_by_key($key)  , "\n";
	print "\tinc id: "   , $object->get_inc_id_by_key($key)   , "\n";
}

DESCRIPTION

Id generation at a node should not require coordination with other nodes. Ids should be roughly time-ordered when sorted lexicographically.

METHODS

new

my $object = Number::YAUID->new(<file path to lockfile>, <file path to node id>[, params args]);

my %p_args = (
	try_count  => 0,     # count of key get attempts, 0 = unlimited
	sleep_usec => 35000, # sleep 0.35 sec if limit key inc expired on current second
	node_id    => 321    # current node id
);

my $object = Number::YAUID->new("/tmp/lock.file", undef, %p_args);

Create and prepare base structure. Return object or undef if something went wrong.

get_key

my $key = $object->get_key();

Return a unique ID

get_error_code

$object->get_error_code();

Return error code.

get_error_text_by_code

get_error_text_by_code(<error code>);

Return description by error code

get_timestamp_by_key

$object->get_timestamp_by_key(<key>);

Return timestamp from a key

get_node_id_by_key

$object->get_node_id_by_key(<key>);

Return node id from a key

get_inc_id_by_key

$object->get_inc_id_by_key(<key>);

Return inc id from a key

DESTROY

undef $obj;

Free mem and destroy object.

AUTHOR

Alexander Borisov <lex.borisov@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Alexander Borisov.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.