File Coverage

lib/Crypt/Perl/RNG.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition 2 3 66.6
subroutine 7 7 100.0
pod 0 3 0.0
total 23 27 85.1


line stmt bran cond sub pod time code
1             package Crypt::Perl::RNG;
2              
3 12     12   63 use strict;
  12         15  
  12         259  
4 12     12   50 use warnings;
  12         17  
  12         230  
5              
6 12     12   4034 use Bytes::Random::Secure::Tiny ();
  12         59425  
  12         1309  
7              
8             my %PID_RNG;
9              
10             sub _get {
11 11132   66 11132   44516 return $PID_RNG{$$} ||= Bytes::Random::Secure::Tiny->new();
12             }
13              
14             sub bytes {
15 8     8 0 24 return _get()->bytes(@_);
16             }
17              
18             sub bytes_hex {
19 10684     10684 0 20310 return _get()->bytes_hex(@_);
20             }
21              
22             sub bit_string {
23 440     440 0 1168 my ($count) = @_;
24              
25 440         2633 return _get()->string_from('01', $count);
26             }
27              
28             1;