File Coverage

blib/lib/KiokuDB/Role/UUIDs/DataUUID.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package KiokuDB::Role::UUIDs::DataUUID;
4 20     20   11291 use Moose::Role;
  20         40  
  20         149  
5              
6 20     20   94192 use Data::UUID;
  20         13753  
  20         1384  
7              
8 20     20   129 use namespace::clean -except => 'meta';
  20         39  
  20         155  
9              
10             my $uuid_gen = Data::UUID->new;
11              
12 8004     8004 0 78936 sub generate_uuid { $uuid_gen->create_str }
13              
14             __PACKAGE__
15              
16             __END__