File Coverage

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

Criterion	Covered	Total	%
statement	38	49	77.5
branch	0	4	0.0
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	49	64	76.5

package WWW::Mechanize::FormFiller::Value::Random::Word;
use base 'WWW::Mechanize::FormFiller::Value';

use vars qw( $VERSION );
use Data::Random qw(rand_words);
$VERSION = '0.12';

sub new {
  my ($class,$name,@args) = @_;
  my $self = $class->SUPER::new($name);
  @args = (size => 1) unless scalar @args;
  $self->{args} = [ @args ];
  $self;
};

sub value {
  my ($self,$input) = @_;
  return join " ", @{rand_words( @{$self->{args}} )};
};

1;

__END__