File Coverage

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

Criterion	Covered	Total	%
statement	12	45	26.6
branch	0	26	0.0
condition	0	6	0.0
subroutine	4	10	40.0
pod	6	6	100.0
total	22	93	23.6

use strict;
use warnings;

package
    XHTML::Instrumented::Form::ElementControl;

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

use Data::Dumper;

sub if
{
    my $self = shift;

    my $x = 0;

    $x++ if defined $self->{value};
    $x++ if defined $self->{default};
    $x++ if defined $self->{required};

    $x;
}

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

    if (my $type = ref($value)) {
        die unless $type eq 'ARRAY';
	if (@{$value} == 1) {
	    $self->{value} = $value->[0];
	} elsif (@{$value} == 0) {
	    $self->{value} = '';
	} else {
	    die 'bad data ' . "@{$value}";
	}
    } else {
	$self->{value} = $value;
    }
}

sub set_label
{
    my $self = shift;

    $self->{label} = shift;
}

sub is_multi
{
    0;
}

sub value
{
    my $self = shift;

    if ($self->is_multi) {
die $self;
	$self->{value} || $self->{default} || [];
    } else {
	$self->{value} || $self->{default};
    }
}

sub required
{
    my $self = shift;

    if (exists $self->{required} and $self->{required}) {
        if (exists $self->{value}) {
	    !length($self->{value});
	} else {
	    0;
	}
    } else {
	0;
    }
}

1;
__END__