X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FUUIDColumns.pm;h=65671e406f1e179188bb3e3a61dace2e565c8bf6;hb=3469b2435b72e296830195a12e2b3e1bc5b3cc9d;hp=22cfc55113a53e8f897083efdfaf162c35d1b200;hpb=aaeaf963adf6f25d0b94f91141b93b4260f5bd47;p=dbsrgits%2FDBIx-Class-UUIDColumns.git

diff --git a/lib/DBIx/Class/UUIDColumns.pm b/lib/DBIx/Class/UUIDColumns.pm
index 22cfc55..65671e4 100644
--- a/lib/DBIx/Class/UUIDColumns.pm
+++ b/lib/DBIx/Class/UUIDColumns.pm
@@ -14,7 +14,7 @@ __PACKAGE__->uuid_class( __PACKAGE__->_find_uuid_module );
 # i.e. first release of 0.XX *must* be 0.XX000. This avoids fBSD ports
 # brain damage and presumably various other packaging systems too
 
-$VERSION = '0.01000';
+$VERSION = '0.01001';
 
 sub uuid_columns {
     my $self = shift;
@@ -58,6 +58,8 @@ sub get_uuid {
 sub _find_uuid_module {
     if (eval{require Data::UUID}) {
         return '::Data::UUID';
+    } elsif (eval{require Data::GUID}) {
+        return '::Data::GUID';
     } elsif ($^O ne 'openbsd' && eval{require APR::UUID}) {
         # APR::UUID on openbsd causes some as yet unfound nastiness for XS
         return '::APR::UUID';
@@ -72,7 +74,7 @@ sub _find_uuid_module {
     } elsif (eval{require Win32API::GUID}) {
         return '::Win32API::GUID';
     } else {
-        shift->throw_exception('no suitable uuid module could be found')
+        die 'no suitable uuid module could be found for use with DBIx::Class::UUIDColumns';
     };
 };
 
@@ -144,8 +146,8 @@ that matches one of the available L<DBIx::Class::UUIDColumns::UUIDMaker> subclas
   __PACKAGE__->uuid_class('::Data::UUID');
   # loads DBIx::Class::UUIDMaker::Data::UUID;
 
-Note that C<uuid_class> chacks to see that the specified class isa
-L<DBIx::Class::UUIDColumns::UUIDMaker> subbclass and throws and exception if it isn't.
+Note that C<uuid_class> checks to see that the specified class isa
+L<DBIx::Class::UUIDColumns::UUIDMaker> subclass and throws and exception if it isn't.
 
 =head2 uuid_maker
 
@@ -157,9 +159,12 @@ Returns the current UUIDMaker instance for the given module.
 
 L<DBIx::Class::UUIDColumns::UUIDMaker>
 
-=head1 AUTHORS
+=head1 AUTHOR
 
 Chia-liang Kao <clkao@clkao.org>
+
+=head1 CONTRIBUTERS
+
 Chris Laco <claco@chrislaco.com>
 
 =head1 LICENSE