--- trunk/lib/Frey/Action.pm	2008/12/13 16:37:07	832
+++ trunk/lib/Frey/Action.pm	2009/01/06 13:18:43	940
@@ -12,6 +12,11 @@
 Invoke any L<Frey> object creating html for with various default parameters
 if not supplied at invocation.
 
+You can force rendering of fields if you define C<render_attribute> sub with
+desired rendering as in:
+
+  sub render_pipe { 'radio' }
+
 =cut
 
 has 'class' => (
@@ -127,8 +132,10 @@
 		}
 
 		warn "# max_value_len: $max_value_len";
+		my $render = eval $class . '->render_' . $name;
+		warn "## render $@";
 
-		if ( $#values > 3 ) {
+		if ( $#values > 3 && $render !~ m{radio} ) {
 			my $options = join("\n",
 				map {
 					qq|<option value="$_">$_</option>|;
@@ -175,6 +182,7 @@
 
 	foreach my $name (
 		grep {
+			die "$_ doesn't have meta" unless $class->can('meta');
 			! $class->meta->get_attribute($_)->is_lazy
 			&& ! defined $default->{$_}
 			&& ! m{^_} # skip _private