132 |
warn "# max_value_len: $max_value_len"; |
warn "# max_value_len: $max_value_len"; |
133 |
#my $render = eval $class . '->render_' . $name; |
#my $render = eval $class . '->render_' . $name; |
134 |
my $call = 'render_' . $name; |
my $call = 'render_' . $name; |
135 |
my $render = $self->class->$call; |
my $render = $self->class->$call if $self->class->can($call); |
136 |
warn "## render $@"; |
warn "## render $@"; |
137 |
|
|
138 |
if ( $#values > 3 && $render !~ m{radio} ) { |
if ( $#values > 3 && $render !~ m{radio} ) { |
262 |
} elsif ( $attr->has_type_constraint && $attr->type_constraint->can('values') ) { |
} elsif ( $attr->has_type_constraint && $attr->type_constraint->can('values') ) { |
263 |
$value_html = $self->select_values( $name, $attr_type, $attr->type_constraint->values ); |
$value_html = $self->select_values( $name, $attr_type, $attr->type_constraint->values ); |
264 |
} elsif ( $class->can( $name . '_available' ) ) { |
} elsif ( $class->can( $name . '_available' ) ) { |
265 |
my $available = $class->$name . '_available'; |
my $available = $name . '_available'; |
266 |
|
$available = $class->$available; |
267 |
confess $@ if $@; |
confess $@ if $@; |
268 |
$available =~ s/^\s+//gs; |
$available =~ s/^\s+//gs; |
269 |
$available =~ s/\s+$//gs; |
$available =~ s/\s+$//gs; |