119 |
) . qq|</select>|; |
) . qq|</select>|; |
120 |
$default->{$name} = $config_params->[0]->{$name}; |
$default->{$name} = $config_params->[0]->{$name}; |
121 |
} elsif ( my $attr = $class->meta->get_attribute( $name ) ) { |
} elsif ( my $attr = $class->meta->get_attribute( $name ) ) { |
|
$attr_type = $attr->type_constraint->name; |
|
122 |
if ( $attr->has_type_constraint ) { |
if ( $attr->has_type_constraint ) { |
123 |
|
$attr_type = $attr->type_constraint->name; |
124 |
if ( $attr->type_constraint->can('values') ) { |
if ( $attr->type_constraint->can('values') ) { |
125 |
$value_html = qq|<select name="$name">| . join("\n", |
$value_html = qq|<select name="$name">| . join("\n", |
126 |
map { qq|<option value="$_">$_</option>| } @{ $attr->type_constraint->values } |
map { qq|<option value="$_">$_</option>| } @{ $attr->type_constraint->values } |