use vars qw($VERSION);
BEGIN {
- use base qw/DBIx::Class Class::Data::Accessor/;
+ use base qw/DBIx::Class Class::Accessor::Grouped/;
__PACKAGE__->mk_group_accessors('inherited', qw/uuid_auto_columns uuid_maker/);
};
# 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.02000';
+$VERSION = '0.02005';
sub uuid_columns {
my $self = shift;
return '::Win32::Guidgen';
} elsif (eval{require Win32API::GUID}) {
return '::Win32API::GUID';
+ } elsif (eval{require UUID::Random}) {
+ return '::UUID::Random';
} else {
die 'no suitable uuid module could be found for use with DBIx::Class::UUIDColumns';
};