File Coverage

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

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	7	7	100.0
pod	2	2	100.0
total	41	41	100.0

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

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

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__