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   176 use base 'WWW::Mechanize::FormFiller::Value';
  1         20  
  1         1  
3 1     1   2 use strict;
  1         25  
  1         13320  
4              
5 1     1   2 use vars qw( $VERSION );
  1         22  
  1         371  
6 1     1   3 use Data::Random qw(rand_chars);
  1         1086  
  1         4  
7             $VERSION = '0.12';
8              
9             sub new {
10 1     2 1 1 my ($class,$name,@args) = @_;
11 1         27 my $self = $class->SUPER::new($name);
12 1 0       412 @args = (set => 'alpha', min => 5, max => 8) unless scalar @args;
13 1         12144 $self->{args} = [ @args ];
14 1         131 $self;
15             };
16              
17             sub value {
18 1     2 1 116 my ($self,$input) = @_;
19 1         2 join "", (rand_chars( @{$self->{args}} ));
  1         20  
20             };
21              
22             1;
23              
24             __END__