WWW::Mechanize::FormFiller::Value::Default - Fill a fixed value into an empty HTML form field


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

Index


Code Index:

NAME

Top

WWW::Mechanize::FormFiller::Value::Default - Fill a fixed value into an empty HTML form field

SYNOPSIS

Top

  use WWW::Mechanize::FormFiller;
  use WWW::Mechanize::FormFiller::Value::Default;

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

  # Create a default value for the HTML field "login"
  # This will put "Corion" into the login field unless
  # there already is some other text.
  my $login = WWW::Mechanize::FormFiller::Value::Default->new( login => "Corion" );
  $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 'secret' there"
  my $password = $f->add_filler( password => Default => "secret" );

DESCRIPTION

Top

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

new NAME, VALUE

Creates a new value which will correspond to the HTML field NAME. The VALUE is the value to be written into the HTML field.

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.

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

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


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

package WWW::Mechanize::FormFiller::Value::Default;
use base 'WWW::Mechanize::FormFiller::Value';
use strict;

use vars qw( $VERSION );
$VERSION = '0.10';

sub new {
  my ($class,$name,$value) = @_;
  my $self = $class->SUPER::new($name);
  $self->{value} = $value;

  $self;
};

sub value {
  my ($self,$input) = @_;
  defined $input->value && $input->value ne "" ? $input->value : $self->{value};
};

1;

__END__