view release on metacpan or  search on metacpan

lib/Data/Type/Field.pm  view on Meta::CPAN

		my $attribs = { value => $_ };
		
		$attribs->{selected} = 'true' if $this->default eq $_;
		
		push @fields, $Data::Type::Field::XML->option( $attribs , $this->labels->{$_} || $_ );
	}

	my @html = $Data::Type::Field::XML->select( {

		id 		=> $this->id,
		class 	=> 'popup',

		name		=> $this->name,

		}, @fields
	);

return @html;
}

package Data::Type::Field::Form::Field::Radio;