lib/DBIx/Class/UUIDMaker/UUID.pm

   1 package DBIx::Class::UUIDMaker::UUID;
   2 use base qw/DBIx::Class::UUIDMaker/;
   3 use UUID ();
   4
   5 sub as_string {
   6     my ($uuid, $uuidstring);
   7     UUID::generate($uuid);
   8     UUID::unparse($uuid, $uuidstring);
   9
  10     return $uuidstring;
  11 };
  12
  13 1;