File Coverage

blib/lib/WWW/Mechanize/FormFiller/Value/Random.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	40	42	95.2

package WWW::Mechanize::FormFiller::Value::Random;
use strict;
use base 'WWW::Mechanize::FormFiller::Value';
use Data::Random qw(rand_enum);

use vars qw( $VERSION );
$VERSION = '0.12';

sub new {
  my ($class,$name,@values) = @_;
  my $self = $class->SUPER::new($name);
  $self->{values} = [ @values ];

  $self;
};

sub value {
  my ($self,$input) = @_;
  my @values;
  @values = @{$self->{values}}
    if ($self->{values});

  # Pick a choice among the allowed values for this input
  # unless we got some prespecified values
  @values = $input->possible_values unless scalar @values;
  rand_enum( set => \@values, size => 1 );
};

1;

__END__