File Coverage

blib/lib/Data/Rand.pm

Criterion	Covered	Total	%
statement	40	57	70.1
branch	10	24	41.6
condition	6	15	40.0
subroutine	6	9	66.6
pod	4	4	100.0
total	66	109	60.5

package Data::Rand;

use warnings;
use strict;

use version; our $VERSION = qv('0.0.4');

use base 'Exporter';
our @EXPORT    = qw( rand_data );
our @EXPORT_OK = qw( rand_data_string rand_data_array );

sub seed_calc_with {
    require Time::HiRes;
    my ($sec, $mic) = Time::HiRes::gettimeofday();
    srand($sec ^ $mic ^ $$ ^ shift() || rand( 999_999_999_999_999 ));
}

sub rand_data {
	my $options_hr = ref $_[-1] eq 'HASH' ? pop @_ : {}; # last item a hashref or not
	%{ $options_hr->{'details'} } = ();

    my ( $size, $items_ar ) = @_;

    $size = 32 if !defined $size || $size eq '0' || $size !~ m{ \A \d+ \z }xms;
    $options_hr->{'details'}{'size'} = $size;

    my @items = ( 0 .. 9, 'A' .. 'Z', 'a' .. 'z' );
    $options_hr->{'details'}{'using_default_list'} = 1;

    if ( ref $items_ar eq 'ARRAY' ) {
        if ( @{ $items_ar } ) {
	        @items = @{ $items_ar };
	        $options_hr->{'details'}{'using_default_list'} = 0;
        }
    }
    $options_hr->{'details'}{'items'} = [ @items ];

    if ( $options_hr->{'use_unique_list'} && !$options_hr->{'details'}{'using_default_list'} ) {
        my %uniq;
	    @items = map { $uniq{$_}++ == 0 ? $_ : () } @items; # see List::MoreUtils::uniq() #left prec, reverse @_ right prec
    }

    $size = @items if $size > @items && $options_hr->{'do_not_repeat_index'};
    my $len = scalar @items;

    my $get_random_index = sub { rand shift() };

    $options_hr->{'details'}{'using_default_index_picker'} = 1;
    if ( ref $options_hr->{'get_random_index'} eq 'CODE' ) {
        $options_hr->{'details'}{'using_default_index_picker'} = 0;
        $get_random_index = $options_hr->{'get_random_index'};
    }

    my @data;
    my %used;

    PART:
    for ( 1 .. $size ) {
	    my $index = int( $get_random_index->($len) ); # negatives ok so no abs()
        if( $options_hr->{'do_not_repeat_index'} ) {
            my $try = 0;
            TRY:
		    while ( exists $used{ $index } ) {
		        $try++;
			    $index = int( $get_random_index->($len) ); # negatives ok so no abs()
			    last TRY if $try > $size; # keep a custom index fetcher from causing infinite loop
		    }
		    $used{ $index }++;
        }

        push @data, $items[ $index ];
    }

    return wantarray ? @data : join('', @data);
}

sub rand_data_string {
    return scalar( rand_data(@_) );
}

sub rand_data_array {
	my @rand = rand_data(@_);
	return wantarray ? @rand : \@rand;
}

1;

__END__