File Coverage

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

Criterion	Covered	Total	%
statement	9	25	36.0
branch	0	6	0.0
condition			n/a
subroutine	3	8	37.5
pod	5	5	100.0
total	17	44	38.6

use strict;
use warnings;

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

sub as_args
{
    my $self = shift;
    my %hash = %$self;
    delete $hash{text};
    if ($hash{disabled}) {
	$hash{disabled} = 'disabled';
    }
    if ($hash{selected}) {
	$hash{selected} = 'selected';
    }
    %hash;
}

sub selected
{
    my $self = shift;

    $self->{selected};
}

sub disabled
{
    my $self = shift;

    $self->{disabled};
}

sub text
{
    my $self = shift;

    $self->{text};
}

sub value
{
    my $self = shift;

    $self->{value} || $self->{text};
}


1;

__END__