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


line stmt bran cond sub pod time code
1             package WWW::Mechanize::FormFiller::Value::Random::Chars;
2 1     1   244 use base 'WWW::Mechanize::FormFiller::Value';
  1         19  
  1         2  
3 1     1   2 use strict;
  1         139  
  1         59252  
4              
5 1     1   2 use vars qw( $VERSION );
  1         27  
  1         406  
6 1     1   2 use Data::Random qw(rand_chars);
  1         1278  
  1         6  
7             $VERSION = '0.13';
8              
9             sub new {
10 1     2 1 2 my ($class,$name,@args) = @_;
11 1         31 my $self = $class->SUPER::new($name);
12 1 0       492 @args = (set => 'alpha', min => 5, max => 8) unless scalar @args;
13 1         14117 $self->{args} = [ @args ];
14 1         144 $self;
15             };
16              
17             sub value {
18 1     2 1 173 my ($self,$input) = @_;
19 1         2 join "", (rand_chars( @{$self->{args}} ));
  1         18  
20             };
21              
22             1;
23              
24             __END__