File Coverage

blib/lib/Data/Token.pm
Criterion Covered Total %
statement 19 21 90.4
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 26 28 92.8


line stmt bran cond sub pod time code
1             package Data::Token;
2 3     3   72936 use warnings;
  3         8  
  3         109  
3 3     3   15 use strict;
  3         7  
  3         108  
4 3     3   2599 use version; our $VERSION = qv('0.0.3');
  3         7325  
  3         19  
5 3     3   2926 use Data::UUID;
  3         2856  
  3         226  
6 3     3   3054 use Digest::SHA qw(sha1_hex);
  3         13526  
  3         332  
7 3     3   27 use base qw/Exporter/;
  3         7  
  3         411  
8 3     3   1452 use Crypt::Random qw( makerandom );
  0            
  0            
9             our @EXPORT = qw/token/;
10              
11             sub token {
12             our $uuid ||= new Data::UUID;
13             our $secret ||= makerandom ( Size => 512, Strength => 0 );
14             return sha1_hex($uuid->create_str() . $secret);
15             }
16              
17             1; # Magic true value required at end of module
18             __END__