/usr/local/CPAN/KiokuDB/KiokuDB/Role/UUIDs/DataUUID.pm

• package KiokuDB::Role::UUIDs::DataUUID
  • generate_uuid
• __END__
• EOF

#!/usr/bin/perl

package KiokuDB::Role::UUIDs::DataUUID;
use Moose::Role;

use Data::UUID;

use namespace::clean -except => 'meta';

my $uuid_gen = Data::UUID->new;

sub generate_uuid { $uuid_gen->create_str }

__PACKAGE__

__END__