File Coverage

blib/lib/HTML/Tested/Value/Radio.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	6	66.6
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	29	31	93.5

use strict;
use warnings FATAL => 'all';

package HTML::Tested::Value::Radio;
use base 'HTML::Tested::Value';

sub render {
	my ($self, $caller, $stash, $id) = @_;
	my $n = $self->name;
	my $val = $self->get_value($caller, $id, $n) or return;
	for my $v (@$val) {
		my $ch = '';
		my $opt;
		if (ref($v) eq 'ARRAY') {
			$ch = 'checked ' if $v->[1];
			$opt = $v->[0];
		} else {
			$opt = $v;
		}
		$stash->{"$n\_$opt"} = <

ENDS
	}
}

1;