WWW::Mechanize::FormFiller::Value::Callback - Call Perl code to fill out a HTML form field
use WWW::Mechanize::FormFiller;
use WWW::Mechanize::FormFiller::Value::Callback;
my $f = WWW::Mechanize::FormFiller->new();
# Create a default value for the HTML field "login"
# This will put the current login name into the login field
sub find_login {
getlogin || getpwuid($<) || "Kilroy";
};
my $login = WWW::Mechanize::FormFiller::Value::Callback->new( login => \&find_login );
$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 nice number there
my $password = $f->add_filler( password => Callback => sub { int rand(90) + 10 } );
This class provides a way to write a value returned by Perl code into a HTML field.
NAME
. The CODE
is a code reference that will return the value to be written into the HTML field. The code reference will be called with two parameters, the object and the HTML::Form::Input object.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
Max Maischein, <corion@cpan.org>
Please contact me if you find bugs or otherwise improve the module. More tests are also very welcome !
WWW::Mechanize,WWW::Mechanize::Shell,WWW::Mechanize::FormFiller,WWW::Mechanize::FormFiller::Value::Value, WWW::Mechanize::FormFiller::Value::Default,WWW::Mechanize::FormFiller::Value::Random,WWW::Mechanize::FormFiller::Value::Interactive