/ 
Data-Randr-0.04
River stage zero No dependents
/ Data::Randr

NAME

Data::Randr - numeral randomizer for a cache expires time

SYNOPSIS

use Data::Randr qw/randr/;

randr(10);        # 9 - 11
randr(10, 20);    # 8 - 12
randr(10, 20, 4); # 8.0000 - 11.9999 down to 4 decimal places, ex. 8.4321

or OOP style

use Data::Randr;

my $rdr = Data::Randr->new(rate => 20, digit => 2);
$rdr->randr(10); # 8.00 - 11.99

DESCRIPTION

Data::Randr gives random number for a cache expires time to avoid the thundering herd problem.

METHOD

new(%args)

constructor

construct options

rate : int // 10

randomize rate(1 - 100)

digit : int // 0

decimal number

randr($number[, $rate, $digit])

response randomized number

Like below, $res is 8.0000 - 11.9999.

my $res = randr(
    10, # base number
    20, # randomize rate for base number
    4,  # decimal number
);

REPOSITORY

Data::Randr is hosted on github: http://github.com/bayashi/Data-Randr

I appreciate any feedback :D

AUTHOR

Dai Okabayashi <bayashi@cpan.org>

LICENSE

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.