File Coverage

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

Criterion	Covered	Total	%
statement	15	69	21.7
branch	0	36	0.0
condition	0	4	0.0
subroutine	5	17	29.4
pod	12	12	100.0
total	32	138	23.1

use strict;
use warnings;

package
    XHTML::Instrumented::Form::Element;

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

use Params::Validate qw( validate SCALAR BOOLEAN HASHREF OBJECT ARRAYREF );

use Carp qw (croak);

sub new
{
    my $class = shift;
    my %p = validate(@_, {
	name => 1,
	type => 1,
	value => 0,
	required => 0,
	optional => 0,
	default => 0,
	remove => 0,
    });

    bless({ %p }, $class);
}

sub exp_args
{
    my $self = shift;
    die caller if ref $_[0];
    my @extra = ();

    if (my $data = $self->{onclick}) {
	push(@extra, 'onclick', $data);
    }

    my $ret = $self->SUPER::exp_args(@_, name => $self->name, @extra);

    $ret;
}

sub add_option
{
    my $self = shift;
    push(@{$self->{data}}, bless {@_}, 'XHTML::Instrumented::Form::Option');
    $self;
}

sub set_default
{
    my $self = shift;

    $self->{default} = shift;
}

sub value
{
    my $self = shift;

    my $x;
    if (defined $self->{value}) {
	$x = $self->{value};
    } else {
	$x = $self->{default} || '';
    }
    if (ref($x)) {
	return $x->[0] || '';
    }

    $x;
}

sub type
{
    my $self = shift;
    $self->{type};
}

sub name
{
    my $self = shift;
    $self->{name} or die "unamed form element";
}

sub args
{
   my $self = shift;
   my %ret = $self->SUPER::args(@_);

   $ret{name} = $self->name;

   if ($self->type eq 'text') {
       $ret{value} = $self->value;
   } elsif ($self->type eq 'hidden') {
       $ret{value} = $self->value;
   } elsif ($self->type eq 'textarea') {

   } elsif ($self->type eq 'checkbox') {
       if ($self->checked($ret{value})) {
	   $ret{checked} = 'checked';
       }
   } elsif ($self->type eq 'radio') {
       if ($ret{value} eq $self->value) {
	   $ret{checked} = 'checked';
       }
   } elsif ($self->type eq 'checkboxes') {
   } elsif ($self->type eq 'submit') {
   } else {
       die "unknown type [" . $self->type . "]";
   }

   %ret;
}

sub expand_content
{
   my $self = shift;
   my @ret = ();

   if ($self->type eq 'textarea') {
       @ret = ($self->value);
   }
   @ret;
}

sub to_text
{
    my $self = shift;
    my %p = @_;

die $p{tag} if $p{tag} eq 'form';

    my @ret = $self->SUPER::to_text(@_);

    @ret;
}

sub optional
{
    my $self = shift;
    $self->{optional} || 0;
}

sub required
{
    my $self = shift;
    $self->{required} || 0;
}

1;

__END__