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


line stmt bran cond sub pod time code
1             package WWW::Mechanize::FormFiller::Value::Keep;
2 1     1   281 use base 'WWW::Mechanize::FormFiller::Value';
  1         21  
  1         2  
3 1     1   1 use strict;
  1         25  
  1         13184  
4              
5 1     1   1 use vars qw( $VERSION );
  1         23  
  1         361  
6             $VERSION = '0.12';
7              
8             sub new {
9 1     2 1 1 my ($class,$name,$value) = @_;
10 1         18 my $self = $class->SUPER::new($name);
11 1         2 $self->{value} = $value;
12              
13 1         1 $self;
14             };
15              
16 1     1 1 122 sub value { $_[1]->value };
17              
18             1;
19             __END__