File Coverage

lib/Crypt/Random/Provider/devurandom.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 18 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -sw
2             ##
3             ## Copyright (c) 1998-2018, Vipul Ved Prakash. All rights reserved.
4             ## This code is free software; you can redistribute it and/or modify
5             ## it under the same terms as Perl itself.
6              
7             package Crypt::Random::Provider::devurandom;
8 6     6   33 use strict;
  6         10  
  6         162  
9 6     6   733 use lib qw(lib);
  6         1053  
  6         27  
10 6     6   2434 use Crypt::Random::Provider::File;
  6         12  
  6         156  
11 6     6   31 use vars qw(@ISA);
  6         10  
  6         407  
12             @ISA = qw(Crypt::Random::Provider::File);
13              
14 2414     2414   17413 sub _defaultsource { return "/dev/urandom" }
15              
16             1;
17