WWW::Mechanize::FormFiller::Value::Random::Chars - Fill characters into an HTML form field

WWW-Mechanize-FormFiller documentation Contained in the WWW-Mechanize-FormFiller distribution.

Index

Code Index:

NAME

Top

WWW::Mechanize::FormFiller::Value::Random::Chars - Fill characters into an HTML form field

SYNOPSIS

Top

  use WWW::Mechanize::FormFiller;
  use WWW::Mechanize::FormFiller::Value::Random::Chars;

  my $f = WWW::Mechanize::FormFiller->new();

  # Create a random value for the HTML field "login"

  my $login = WWW::Mechanize::FormFiller::Value::Random::Chars->new(
                       login => set => 'alpha', min => 3, max => 8 );
  $f->add_value( login => $login );

  # Alternatively take the following shorthand, which adds the
  # field to the list as well :

  # If there is no password, put a random one out of the list there
  my $password = $f->add_filler( password => 'Random::Chars' );

DESCRIPTION

Top

This class provides a way to write a randomly chosen value into a HTML field.

new NAME, LIST

Creates a new value which will correspond to the HTML field NAME. The LIST is the list of arguments passed to Data::Random::rand_chars. If the list is empty, set => 'alpha', min => 5, max => 8 is assumed.

name [NEWNAME]

Gets and sets the name of the HTML field this value corresponds to.

value FIELD

Returns the value to put into the HTML field.

EXPORT

None by default.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Copyright (C) 2002,2003 Max Maischein

AUTHOR

Top

Max Maischein, <corion@cpan.org>

Please contact me if you find bugs or otherwise improve the module. More tests are also very welcome !

SEE ALSO

Top

Data::Random, WWW::Mechanize, WWW::Mechanize::Shell, WWW::Mechanize::FormFiller, WWW::Mechanize::FormFiller::Value::Value, WWW::Mechanize::FormFiller::Value::Default, WWW::Mechanize::FormFiller::Value::Fixed, WWW::Mechanize::FormFiller::Value::Interactive

WWW-Mechanize-FormFiller documentation Contained in the WWW-Mechanize-FormFiller distribution. 
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.10';

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__