File Coverage

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

Criterion	Covered	Total	%
statement	12	38	31.5
branch	0	18	0.0
condition	0	6	0.0
subroutine	4	9	44.4
pod	5	5	100.0
total	21	76	27.6

use strict;
use warnings;

package XHTML::Instrumented::Form::Control;

use base 'XHTML::Instrumented::Control';

use Carp qw(croak);

sub args
{
    my $self = shift;

    my %hash;
    $hash{action} = $self->{self}{action} if $self->{self}{action};
    $hash{method} = $self->{self}{method} if $self->{self}{method};
    if (my $name = $self->{self}{name}) {
        $hash{name} = $name;
    }

    ('method', 'post', @_, %hash );
}

sub expand_content
{
    my $self = shift;

    my @ret = @_;

    for my $hidden ($self->{self}->auto()) {
	die 'need value for ' . $hidden->name if !$hidden->value && $hidden->required;
	warn 'need value for ' . $hidden->name unless $hidden->value || $hidden->optional;
	next unless $hidden->value;
	unshift(@ret, sprintf(qq(), $hidden->name, $hidden->value));
    }
    $self->SUPER::expand_content(@ret);
}

sub is_form
{
    1;
}

sub form
{
    shift->{self};
}

sub get_element
{
    my $self = shift;
    my $name = shift or croak('need a name');
    my $form = $self->{self};

    my $ret = $form->{elements}{$name};

    if ($ret) {
	if ($ret->is_multi) {
	    $ret->{default} = [ $form->element_values($name) ];
	} else {
	    $ret->{default} = $form->element_value($name);
	}
    }

    return $ret;
}

1;
__END__