[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / UUIDMaker / UUID.pm

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

sub as_string {
    my ($uuid, $uuidstring);
    UUID::generate($uuid);
    UUID::unparse($uuid, $uuidstring);

    return $uuidstring;
};

1;
Commit	Line	Data
947acfd9	1	package DBIx::Class::UUIDMaker::UUID;
	2	use base qw/DBIx::Class::UUIDMaker/;
	3	use UUID ();
	4
	5	sub as_string {
	6	my ($uuid, $uuidstring);
	7	UUID::generate($uuid);
	8	UUID::unparse($uuid, $uuidstring);
	9
	10	return $uuidstring;
	11	};
	12
	13	1;