Why not adopt me?
This distribution is up for adoption!
If you're interested then please contact the PAUSE module admins via
email.
NAME
IRC::Toolkit::TS6 - Generate TS6 IDs
SYNOPSIS
use IRC::Toolkit::TS6;
my $idgen = ts6_id();
my $nextid = $idgen->next;
DESCRIPTION
Lightweight array-type objects that can produce sequential TS6 IDs.
ts6_id
The exported ts6_id function will instance a new ID object. ts6_id optionally takes a start-point as a string (defaults to 'AAAAAA' similar to ratbox
).
The object is overloaded in two ways; it stringifies to the current ID, and calling it as a CODE
ref is the same as calling "next":
my $idgen = ts6_id;
my $current = "$idgen"; # 'AAAAAA'
my $next = $idgen->(); # 'AAAAAB'
as_string
The as_string
method explicitly stringifies the current ID.
next
The next
will increment the current ID and return the ID as a string.
If no more IDs are available, next will croak.
AUTHOR
Jon Portnoy <avenj@cobaltirc.org>; conceptually derived from the relevant ratbox
function.