File Coverage

blib/lib/Test2/Plugin/UUID.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package Test2::Plugin::UUID;
2 1     1   332 use strict;
  1         2  
  1         23  
3 1     1   4 use warnings;
  1         1  
  1         34  
4              
5             our $VERSION = '0.002001';
6              
7 1     1   521 use Test2::API qw/test2_add_uuid_via/;
  1         63307  
  1         69  
8              
9 1     1   380 use Data::UUID;
  1         516  
  1         110  
10             my $UG = Data::UUID->new;
11              
12 11     11 0 7956 sub gen_uuid() { $UG->create_str() }
13              
14             sub import {
15 1     1   12 test2_add_uuid_via(\&gen_uuid);
16 1         16 require Test2::Hub;
17 1         5 Test2::Hub->new; # Make sure the UUID generator is found
18 1         52 return;
19             }
20              
21             1;
22              
23             __END__