NAME
Catmandu::IdGenerator - A base role for identifier generators
SYNOPSIS
package
MyGenerator;
use
Moo;
sub
generate {
my
(
$self
) =
@_
;
return
int
(
rand
(999999)) .
"-"
.
time
;
}
package
main;
my
$gen
= MyGenerator->new;
for
(1..100) {
printf
"id: %s\n"
m
$gen
->generate;
}