DBIx-Class-UUIDColumns now has it's own working test suite

[dbsrgits/DBIx-Class-UUIDColumns.git] / lib / DBIx / Class / UUIDColumns.pm

diff --git a/lib/DBIx/Class/UUIDColumns.pm b/lib/DBIx/Class/UUIDColumns.pm
index fdd6adc..7eca6bb 100644 (file)
--- a/lib/DBIx/Class/UUIDColumns.pm
+++ b/lib/DBIx/Class/UUIDColumns.pm
@@ -3,12 +3,19 @@ package DBIx::Class::UUIDColumns;
 use strict;
 use warnings;
 
+use vars qw($VERSION);
 use base qw/DBIx::Class/;
 
 __PACKAGE__->mk_classdata( 'uuid_auto_columns' => [] );
 __PACKAGE__->mk_classdata( 'uuid_maker' );
 __PACKAGE__->uuid_class( __PACKAGE__->_find_uuid_module );
 
+# Always remember to do all digits for the version even if they're 0
+# 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.06002';
+
 # be compatible with Class::DBI::UUID
 sub uuid_columns {
     my $self = shift;
@@ -22,11 +29,11 @@ sub uuid_class {
     my ($self, $class) = @_;
 
     if ($class) {
-        $class = "DBIx::Class::UUIDMaker$class" if $class =~ /^::/;
+        $class = "DBIx::Class::UUIDColumns::UUIDMaker$class" if $class =~ /^::/;
 
         if (!eval "require $class") {
             $self->throw_exception("$class could not be loaded: $@");
-        } elsif (!$class->isa('DBIx::Class::UUIDMaker')) {
+        } elsif (!$class->isa('DBIx::Class::UUIDColumns::UUIDMaker')) {
             $self->throw_exception("$class is not a UUIDMaker subclass");
         } else {
             $self->uuid_maker($class->new);
@@ -121,7 +128,7 @@ Takes a list of columns to be filled with uuids during insert.
 
 Takes the name of a UUIDMaker subclass to be used for uuid value generation.
 This can be a fully qualified class name, or a shortcut name starting with ::
-that matches one of the available DBIx::Class::UUIDMaker subclasses:
+that matches one of the available DBIx::Class::UUIDColumns::UUIDMaker subclasses:
 
   __PACKAGE__->uuid_class('CustomUUIDGenerator');
   # loads CustomeUUIDGenerator
@@ -130,7 +137,7 @@ that matches one of the available DBIx::Class::UUIDMaker subclasses:
   # loads DBIx::Class::UUIDMaker::Data::UUID;
 
 Note that C<uuid_class> chacks to see that the specified class isa
-DBIx::Class::UUIDMaker subbclass and throws and exception if it isn't.
+DBIx::Class::UUIDColumns::UUIDMaker subbclass and throws and exception if it isn't.
 
 =head2 uuid_maker
 
@@ -140,7 +147,7 @@ Returns the current UUIDMaker instance for the given module.
 
 =head1 SEE ALSO
 
-L<DBIx::Class::UUIDMaker>
+L<DBIx::Class::UUIDColumns::UUIDMaker>
 
 =head1 AUTHORS