lib/DBIx/Class/UUIDMaker/Win32/Guidgen.pm

   1 package DBIx::Class::UUIDMaker::Win32::Guidgen;
   2 use base qw/DBIx::Class::UUIDMaker/;
   3 use Win32::Guidgen ();
   4
   5 sub as_string {
   6     my $uuid = Win32::Guidgen::create();
   7     $uuid =~ s/(^\{|\}$)//;
   8
   9     return $uuid;
  10 };
  11
  12 1;