1 package DBIx::Class::UUIDMaker::APR::UUID;
6 use base qw/DBIx::Class::UUIDMaker/;
10 return APR::UUID->new->format;
18 DBIx::Class::UUIDMaker::APR::UUID - Create uuids using APR::UUID
23 __PACKAGE__->load_components(qw/UUIDColumns Core DB/);
24 __PACKAGE__->uuid_columns( 'artist_id' );
25 __PACKAGE__->uuid_class('::APR::UUID');
29 This DBIx::Class::UUIDMaker subclass uses APR::UUID to generate uuid
30 strings in the following format:
32 098f2470-bae0-11cd-b579-08002b30bfeb
38 Returns the new uuid as a string.
46 Chris Laco <claco@chrislaco.com>
50 You may distribute this code under the same terms as Perl itself.