projects
/
dbsrgits/DBIx-Class-Historic.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
28a34b92b6afa9b546761b44e67f4634c19554f3
[dbsrgits/DBIx-Class-Historic.git]
/
lib
/
DBIx
/
Class
/
UUIDMaker
/
UUID.pm
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;