The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

FUNCTIONS

unique

set up a generator:

    my $id_generator = unique(sub { int rand 1000 });

get a random unique id from this generator:

    $id_generator->();