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