From: Thomas Kratz Date: Thu, 18 May 2006 15:59:52 +0000 (+0000) Subject: Moved UUIDMaker.pm over from main DBIx::Class dist X-Git-Tag: v0.01001~14 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-UUIDColumns.git;a=commitdiff_plain;h=25b6bc0e264289453091f33ac23e43d3e6ae465d Moved UUIDMaker.pm over from main DBIx::Class dist --- diff --git a/lib/DBIx/Class/UUIDColumns b/lib/DBIx/Class/UUIDColumns new file mode 100644 index 0000000..f492801 --- /dev/null +++ b/lib/DBIx/Class/UUIDColumns @@ -0,0 +1,59 @@ +package DBIx::Class::UUIDMaker; + +use strict; +use warnings; + +sub new { + return bless {}, shift; +}; + +sub as_string { + return undef; +}; + +1; +__END__ + +=head1 NAME + +DBIx::Class::UUIDMaker - UUID wrapper module + +=head1 SYNOPSIS + + package CustomUUIDMaker; + use base qw/DBIx::Class::/; + + sub as_string { + my $uuid; + ...magic incantations... + return $uuid; + }; + +=head1 DESCRIPTION + +DBIx::Class::UUIDMaker is a base class used by the various uuid generation +subclasses. + +=head1 METHODS + +=head2 as_string + +Returns the new uuid as a string. + +=head1 SEE ALSO + +L, +L, +L, +L, +L, +L, +L + +=head1 AUTHOR + +Chris Laco + +=head1 LICENSE + +You may distribute this code under the same terms as Perl itself.