File Coverage

blib/lib/Tie/Scalar/Random.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	8	8	100.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	39	39	100.0

package Tie::Scalar::Random;
use strict;
use warnings;

our $VERSION = '0.02';

sub TIESCALAR {
    my $class = shift;
    my $remember_all = shift;
    if ($remember_all) {
        return bless {remember_all => 1, values => []}, $class;
    }
    else {
        return bless {assigned => 0, value => undef}, $class;
    }
}

sub FETCH {
    my $self = shift;

    if ($self->{remember_all}) {
        return $self->{values}->[ rand @{$self->{values}} ];
    }

    return $self->{value};
}

sub STORE {
    my $self = shift;
    my $value = shift;

    if ($self->{remember_all}) {
        push @{ $self->{values} }, $value;
    }
    elsif (rand(++$self->{assigned}) < 1) {
        $self->{value} = $value;
    }

    return $self->FETCH;
}

sub DESTROY {
    my $self = shift;
    %$self = ();
}

1;

__END__