File Coverage

blib/lib/WWW/Mechanize/FormFiller/Value.pm

Criterion	Covered	Total	%
statement	10	11	90.9
branch	2	2	100.0
condition			n/a
subroutine	3	4	75.0
pod	3	3	100.0
total	18	20	90.0

package WWW::Mechanize::FormFiller::Value;

use vars qw( $VERSION @ISA );
$VERSION = '0.13';
@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__