File Coverage

lib/Crypt/Perl/Math.pm
Criterion Covered Total %
statement 23 23 100.0
branch 3 4 75.0
condition 2 3 66.6
subroutine 6 6 100.0
pod 0 2 0.0
total 34 38 89.4


line stmt bran cond sub pod time code
1             package Crypt::Perl::Math;
2              
3 8     8   125841 use strict;
  8         23  
  8         205  
4 8     8   35 use warnings;
  8         17  
  8         168  
5              
6 8     8   388 use Crypt::Perl::BigInt ();
  8         18  
  8         116  
7 8     8   2609 use Crypt::Perl::RNG ();
  8         16  
  8         1121  
8              
9             sub ceil {
10 66 50   66 0 59264 return int($_[0]) if $_[0] <= 0;
11              
12 66         384 return int($_[0]) + int( !!($_[0] - int $_[0]) );
13             }
14              
15             #limit is inclusive
16             #cf. Python’s random.randint()
17             sub randint {
18 324     324 0 21448 my ($limit) = @_;
19              
20 324         788 my $limit_bit_count;
21 324 100 66     5291 if (ref($limit) && (ref $limit)->isa('Math::BigInt')) {
22 304         1869 $limit_bit_count = length($limit->as_bin()) - 2;
23             }
24              
25             #Is this ever needed??
26             else {
27 20         62 $limit_bit_count = length sprintf '%b', $limit;
28             }
29              
30 324         302430 my $rand;
31 324         609 do {
32 432         404883 $rand = Crypt::Perl::BigInt->from_bin( Crypt::Perl::RNG::bit_string($limit_bit_count) );
33             } while $rand > $limit;
34              
35 324         1549755 return $rand;
36             }
37              
38             1;