File Coverage

lib/Crypt/Random/Provider/rand.pm

Criterion	Covered	Total	%
statement	24	27	88.8
branch	3	6	50.0
condition	8	16	50.0
subroutine	5	7	71.4
pod	0	3	0.0
total	40	59	67.8

#!/usr/bin/perl -sw
##
## Copyright (c) 1998-2018, Vipul Ved Prakash.  All rights reserved.
## This code is free software; you can redistribute it and/or modify
## it under the same terms as Perl itself.

package Crypt::Random::Provider::rand;
use strict;
use Math::Pari qw(pari2num);

sub new {

    my ($class, %params) = @_;
    my $self = { Source => $params{Source} || sub { return rand($_[0]) } };
    return bless $self, $class;

}


sub get_data {

    my ($self, %params) = @_;
    $self = {} unless ref $self;

    my $size = $params{Size};
    my $skip = $params{Skip} || $$self{Skip};

    if ($size && ref $size eq "Math::Pari") {
        $size = pari2num($size);
    }

    my $bytes = $params{Length} || (int($size / 8) + 1);
    my $source = $$self{Source} || sub { rand($_[0]) };

    my($r, $read, $rt) = ('', 0);
    while ($read < $bytes) {
        $rt = chr(int(&$source(256)));
        unless ($skip && $skip =~ /\Q$rt\E/) {
            $r .= $rt; $read++;
        }
    }

    $r;

}


sub available {

    return 1;

}


1;