lib/DBIx/Class/UUIDColumns/UUIDMaker/UUID/Random.pm

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