1 package DBIx::Class::UUIDMaker::Win32::Guidgen;
6 use base qw/DBIx::Class::UUIDMaker/;
10 my $uuid = Win32::Guidgen::create();
11 $uuid =~ s/(^\{|\}$)//g;
21 DBIx::Class::UUIDMaker::Win32::Guidgen - Create uuids using Win32::Guidgen
26 __PACKAGE__->load_components(qw/UUIDColumns Core DB/);
27 __PACKAGE__->uuid_columns( 'artist_id' );
28 __PACKAGE__->uuid_class('::Win32::Guidgen');
32 This DBIx::Class::UUIDMaker subclass uses Win32::Guidgen to generate uuid
33 strings in the following format:
35 098f2470-bae0-11cd-b579-08002b30bfeb
41 Returns the new uuid as a string.
49 Chris Laco <claco@chrislaco.com>
53 You may distribute this code under the same terms as Perl itself.