File Coverage

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

Criterion	Covered	Total	%
statement	37	48	77.0
branch	0	2	0.0
condition			n/a
subroutine	10	10	100.0
pod	2	2	100.0
total	49	62	79.0

package WWW::Mechanize::FormFiller::Value::Random::Chars;
use base 'WWW::Mechanize::FormFiller::Value';
use strict;

use vars qw( $VERSION );
use Data::Random qw(rand_chars);
$VERSION = '0.11';

sub new {
  my ($class,$name,@args) = @_;
  my $self = $class->SUPER::new($name);
  @args = (set => 'alpha', min => 5, max => 8) unless scalar @args;
  $self->{args} = [ @args ];
  $self;
};

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

1;

__END__