1 package DBIx::Class::UUIDMaker::UUID;
6 use base qw/DBIx::Class::UUIDMaker/;
10 my ($uuid, $uuidstring);
11 UUID::generate($uuid);
12 UUID::unparse($uuid, $uuidstring);
22 DBIx::Class::UUIDMaker::UUID - Create uuids using UUID
27 __PACKAGE__->load_components(qw/UUIDColumns Core DB/);
28 __PACKAGE__->uuid_columns( 'artist_id' );
29 __PACKAGE__->uuid_class('::UUID');
33 This DBIx::Class::UUIDMaker subclass uses UUID to generate uuid
34 strings in the following format:
36 098f2470-bae0-11cd-b579-08002b30bfeb
42 Returns the new uuid as a string.
50 Chris Laco <claco@chrislaco.com>
54 You may distribute this code under the same terms as Perl itself.