Commit | Line | Data |
947acfd9 |
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; |