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   255 use base 'WWW::Mechanize::FormFiller::Value';
  1         18  
  1         2  
3 1     1   2 use strict;
  1         112  
  1         57232  
4              
5 1     1   2 use vars qw( $VERSION );
  1         25  
  1         406  
6             $VERSION = '0.13';
7              
8             sub new {
9 1     2 1 2 my ($class,$name,$value) = @_;
10 1         18 my $self = $class->SUPER::new($name);
11 1         4 $self->{value} = $value;
12              
13 1         1 $self;
14             };
15              
16 1     1 1 100 sub value { $_[1]->value };
17              
18             1;
19             __END__