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   108858 use strict;
  8         19  
  8         194  
4 8     8   32 use warnings;
  8         12  
  8         185  
5              
6 8     8   326 use Crypt::Perl::BigInt ();
  8         13  
  8         98  
7 8     8   2374 use Crypt::Perl::RNG ();
  8         20  
  8         1028  
8              
9             sub ceil {
10 66 50   66 0 52557 return int($_[0]) if $_[0] <= 0;
11              
12 66         312 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 18409 my ($limit) = @_;
19              
20 324         719 my $limit_bit_count;
21 324 100 66     4142 if (ref($limit) && (ref $limit)->isa('Math::BigInt')) {
22 304         1255 $limit_bit_count = length($limit->as_bin()) - 2;
23             }
24              
25             #Is this ever needed??
26             else {
27 20         60 $limit_bit_count = length sprintf '%b', $limit;
28             }
29              
30 324         259746 my $rand;
31 324         603 do {
32 410         278847 $rand = Crypt::Perl::BigInt->from_bin( Crypt::Perl::RNG::bit_string($limit_bit_count) );
33             } while $rand > $limit;
34              
35 324         1337816 return $rand;
36             }
37              
38             1;