lib/DBIx/Class/UUIDColumns/UUIDMaker/Win32/Guidgen.pm

   1 package DBIx::Class::UUIDColumns::UUIDMaker::Win32::Guidgen;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw/DBIx::Class::UUIDColumns::UUIDMaker/;
   7 use Win32::Guidgen ();
   8
   9 sub as_string {
  10     my $uuid = Win32::Guidgen::create();
  11     $uuid =~ s/(^\{|\}$)//g;
  12
  13     return $uuid;
  14 };
  15
  16 1;
  17 __END__
  18
  19 =head1 NAME
  20
  21 DBIx::Class::UUIDColumns::UUIDMaker::Win32::Guidgen - Create uuids using Win32::Guidgen
  22
  23 =head1 SYNOPSIS
  24
  25   package Artist;
  26   __PACKAGE__->load_components(qw/UUIDColumns Core DB/);
  27   __PACKAGE__->uuid_columns( 'artist_id' );
  28   __PACKAGE__->uuid_class('::Win32::Guidgen');
  29
  30 =head1 DESCRIPTION
  31
  32 This DBIx::Class::UUIDColumns::UUIDMaker subclass uses Win32::Guidgen to
  33 generate uuid strings in the following format:
  34
  35   098f2470-bae0-11cd-b579-08002b30bfeb
  36
  37 =head1 METHODS
  38
  39 =head2 as_string
  40
  41 Returns the new uuid as a string.
  42
  43 =head1 SEE ALSO
  44
  45 L<Win32::Guidgen>
  46
  47 =head1 AUTHOR
  48
  49 Chris Laco <claco@chrislaco.com>
  50
  51 =head1 LICENSE
  52
  53 You may distribute this code under the same terms as Perl itself.