lib/DBIx/Class/UUIDMaker/Data/Uniqid.pm

   1 package DBIx::Class::UUIDMaker::Data::Uniqid;
   2 use base qw/DBIx::Class::UUIDMaker/;
   3 use Data::Uniqid ();
   4
   5 sub as_string {
   6     return Data::Uniqid->luniqid;
   7 };
   8
   9 1;
  10 __END__
  11
  12 =head1 NAME
  13
  14 DBIx::Class::UUIDMaker::Data::Uniqid - Create uuids using Data::Uniqid
  15
  16 =head1 SYNOPSIS
  17
  18   package Artist;
  19   __PACKAGE__->load_components(qw/UUIDColumns Core DB/);
  20   __PACKAGE__->uuid_columns( 'artist_id' );
  21   __PACKAGE__->uuid_class('::Data::Uniqid');
  22
  23 =head1 DESCRIPTION
  24
  25 This DBIx::Class::UUIDMaker subclass uses Data::Uniqid to generate uuid
  26 strings using Data::Uniqid::luniqid.
  27
  28 =head1 METHODS
  29
  30 =head2 as_string
  31
  32 Returns the new uuid as a string.
  33
  34 =head1 SEE ALSO
  35
  36 L<Data::Data::Uniqid>
  37
  38 =head1 AUTHOR
  39
  40 Chris Laco <claco@chrislaco.com>
  41
  42 =head1 LICENSE
  43
  44 You may distribute this code under the same terms as Perl itself.