File Coverage

blib/lib/WWW/Mechanize/FormFiller/Value/Fixed.pm
Criterion Covered Total %
statement 26 26 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 35 35 100.0


line stmt bran cond sub pod time code
1             package WWW::Mechanize::FormFiller::Value::Fixed;
2 6     5   1545 use base 'WWW::Mechanize::FormFiller::Value';
  5         10  
  5         2116  
3 5     5   29 use strict;
  5         10  
  5         102  
4              
5 5     5   21 use vars qw( $VERSION );
  5         10  
  5         473  
6             $VERSION = '0.13';
7              
8             sub new {
9 30     30 1 2465 my ($class,$name,$value) = @_;
10 31         26713 my $self = $class->SUPER::new($name);
11 30         99 $self->{value} = $value;
12              
13 30         86 $self;
14             };
15              
16 26     25 1 2830 sub value { $_[0]->{value} };
17              
18             1;
19             __END__