File Coverage

blib/lib/XHTML/Instrumented/Form/Hidden.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	6	0.0
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	19	37	51.3

use strict;
use warnings;

package
    XHTML::Instrumented::Form::Hidden;

use base 'XHTML::Instrumented::Form::Element';

use Params::Validate qw (validate);

sub is_multi
{
    1;
}

sub set_value
{
    my $self = shift;
    my $value = shift;
    die if @_;

    if (my $type = ref($value)) {
        die unless $type eq 'ARRAY';
	$self->{value} = $value;
    } else {
	$self->{value} = [ $value ];
    }
}

sub value
{
    shift->SUPER::value(@_);
}

1;
__END__