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

package CustomUUIDMaker;

use strict;
use warnings;

use base qw/DBIx::Class::UUIDColumns::UUIDMaker/;
use Data::UUID ();

sub as_string {
    return Data::UUID->new->to_string(Data::UUID->new->create);
};

1;
__END__
Commit	Line	Data
773544fd	1	package CustomUUIDMaker;
	2
	3	use strict;
	4	use warnings;
	5
	6	use base qw/DBIx::Class::UUIDColumns::UUIDMaker/;
	7	use Data::UUID ();
	8
	9	sub as_string {
	10	return Data::UUID->new->to_string(Data::UUID->new->create);
	11	};
	12
	13	1;
	14	__END__