SYNOPSIS

package MyPackage;
use Moo;
with 'Catmandu::IdGenerator';
sub generate {
return int(rand(999999)) . "-" . time;
}
package main;
my $x = MyPackage->new;
for (1..100) {
printf "id: %s\n" m $x->generate;
}