1 package DBIx::Class::UUIDMaker::APR::UUID;
2 use base qw/DBIx::Class::UUIDMaker/;
6 return APR::UUID->new->format;
14 DBIx::Class::UUIDMaker::APR::UUID - Create uuids using APR::UUID
19 __PACKAGE__->load_components(qw/UUIDColumns Core DB/);
20 __PACKAGE__->uuid_columns( 'artist_id' );
21 __PACKAGE__->uuid_class('::APR::UUID');
25 This DBIx::Class::UUIDMaker subclass uses APR::UUID 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.