File Coverage

blib/lib/Data/ULID/XS.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Data::ULID::XS;
2             $Data::ULID::XS::VERSION = '0.004';
3 2     2   135838 use strict;
  2         12  
  2         58  
4 2     2   10 use warnings;
  2         3  
  2         55  
5              
6 2     2   9 use Exporter qw(import);
  2         4  
  2         96  
7 2     2   1010 use Data::ULID qw(:all);
  2         16860  
  2         258  
8              
9 2     2   14 use Time::HiRes qw();
  2         4  
  2         55  
10 2     2   13 use Crypt::PRNG qw();
  2         4  
  2         198  
11              
12             our @EXPORT = @Data::ULID::EXPORT;
13             our @EXPORT_OK = @Data::ULID::EXPORT_OK;
14             our %EXPORT_TAGS = %Data::ULID::EXPORT_TAGS;
15              
16             our $RNG = Crypt::PRNG->new('Sober128');
17              
18             require XSLoader;
19             XSLoader::load('Data::ULID::XS', $Data::ULID::XS::VERSION);
20              
21             1;
22             __END__