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; |