t/lib/CustomUUIDMaker.pm

   1 package CustomUUIDMaker;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw/DBIx::Class::UUIDColumns::UUIDMaker/;
   7 use Data::UUID ();
   8
   9 sub as_string {
  10     return Data::UUID->new->to_string(Data::UUID->new->create);
  11 };
  12
  13 1;
  14 __END__