185 |
@attributes = map { |
@attributes = map { |
186 |
my $name = $_; |
my $name = $_; |
187 |
my $attr = $meta->get_attribute($name); |
my $attr = $meta->get_attribute($name); |
188 |
|
warn "## ref attr: ",ref( $attr ); |
189 |
my ( $before, $title, $after ) = ( '', '', '' ); |
my ( $before, $title, $after ) = ( '', '', '' ); |
190 |
( $before, $title, $after ) = ( '<b>', ' title="required"', '</b>' ) if $attr->is_required; |
( $before, $title, $after ) = ( '<b>', ' title="required"', '</b>' ) if $attr->is_required; |
191 |
warn $attr->dump(3); |
warn $attr->dump(3); |