WWW::Mechanize::FormFiller::Value - Base class for HTML form values

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

Index

Code Index:

NAME

Top

WWW::Mechanize::FormFiller::Value - Base class for HTML form values

SYNOPSIS

Top

DESCRIPTION

Top

This class is the base class for different values - it defines the interface implemented by the subclasses.

new NAME

Creates a new value which will correspond to the HTML field NAME.

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

WWW::Mechanize,WWW::Mechanize::Shell,WWW::Mechanize::FormFiller,WWW::Mechanize::FormFiller::Value::Fixed, 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;

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

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

  bless $self,$class;

  $self;
};

# You're supposed to override this
sub value { undef };

# You can't set the name, but retrieve it
sub name { my $result = $_[0]->{name}; $_[0]->{name} = $_[1] if scalar @_ == 2; $result };

1;
__END__