File Coverage

lib/Crypt/Perl/RNG.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition 2 3 66.6
subroutine 6 6 100.0
pod 0 2 0.0
total 21 24 87.5


line stmt bran cond sub pod time code
1             package Crypt::Perl::RNG;
2              
3 11     11   57 use strict;
  11         28  
  11         258  
4 11     11   54 use warnings;
  11         40  
  11         251  
5              
6 11     11   4534 use Bytes::Random::Secure::Tiny ();
  11         66653  
  11         1043  
7              
8             my %PID_RNG;
9              
10             sub _get {
11 11199   66 11199   45802 return $PID_RNG{$$} ||= Bytes::Random::Secure::Tiny->new();
12             }
13              
14             sub bytes_hex {
15 10769     10769 0 18638 return _get()->bytes_hex(@_);
16             }
17              
18             sub bit_string {
19 430     430 0 1114 my ($count) = @_;
20              
21 430         2856 return _get()->string_from('01', $count);
22             }
23              
24             1;