File Coverage

blib/lib/Crypt/Random/Source/Weak/OpenSSLRand.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package Crypt::Random::Source::Weak::OpenSSLRand;
4 1     1   28793 use Squirrel;
  0            
  0            
5              
6             use OpenSSL::Rand qw(randbytes);
7              
8             use namespace::clean -except => [qw(meta)];
9              
10             extends qw(
11             Crypt::Random::Source::Weak
12             Crypt::Random::Source::Base
13             );
14              
15             our $VERSION = "0.01";
16              
17             sub available { 1 }
18              
19             sub rank { 200 } # not too shabby if you can get it installed
20              
21             sub get {
22             my ( $self, $n ) = @_;
23             randbytes($n);
24             }
25              
26             __PACKAGE__
27              
28             __END__