lib/Maypole/Session.pm

   1 package Maypole::Session;
   2
   3 use strict;
   4 use Digest::MD5;
   5
   6 sub generate_unique_id {
   7     my $length = shift || 32;
   8     my $id = substr(Digest::MD5::md5_hex(Digest::MD5::md5_hex(time(). {}. rand(). $$)), 0, $length);
   9     return;
  10 }
  11
  12 1;