File Coverage

blib/lib/Data/Randr.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	11	12	91.6
condition	2	8	25.0
subroutine	8	8	100.0
pod	4	4	100.0
total	55	62	88.7

package Data::Randr;
use strict;
use warnings;
use Carp qw/croak/;
use Exporter 'import';
our @EXPORT_OK = qw/randr/;

our $VERSION = '0.01';

sub new {
    my ($class, %args) = @_;

    my $rate  = delete $args{rate};
    my $digit = delete $args{digit};

    bless {
        rate  => $rate,
        digit => $digit,
    }, $class;
}

sub rate  { $_[0]->{rate}  }
sub digit { $_[0]->{digit} }

sub randr {
    my ($self, $base, $rate, $digit);

    if (ref $_[0] eq __PACKAGE__) {
        ($self, $base, $rate, $digit) = @_;
        $rate  = $rate ? $rate : $self->rate;
        $digit = $digit ? $digit : $self->digit;
    }
    else {
        ($base, $rate, $digit) = @_;
    }

    croak "required rate(0 - 100) :".($rate || '') if !$rate || $rate < 0 || $rate > 100;

    my $splash = int( $base * ($rate/100) );
    my $result = $base - $splash + rand($splash*2+1*($digit ? 0 : 1));

    if ($digit) {
        return sprintf("%0.${digit}f", $result);
    }

    return int($result);
}

1;

__END__