1 package DBIx::Class::UUIDMaker::Win32API::GUID;
2 use base qw/DBIx::Class::UUIDMaker/;
6 return Win32API::GUID::CreateGuid();
14 DBIx::Class::UUIDMaker::Win32API:::GUID - Create uuids using Win32API::GUID
19 __PACKAGE__->load_components(qw/UUIDColumns Core DB/);
20 __PACKAGE__->uuid_columns( 'artist_id' );
21 __PACKAGE__->uuid_class('::Win32API::GUID');
25 This DBIx::Class::UUIDMaker subclass uses Win32API::GUID to generate uuid
26 strings in the following format:
28 098f2470-bae0-11cd-b579-08002b30bfeb
34 Returns the new uuid as a string.
42 Chris Laco <claco@chrislaco.com>
46 You may distribute this code under the same terms as Perl itself.