File Coverage

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

Criterion	Covered	Total	%
statement	31	42	73.8
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	42	53	79.2

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

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

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

  $self;
};

sub value { $_[1]->value };

1;
__END__