75 |
push @attrs, $_ foreach grep { ! $a->{$_} } map { $_->name } @required; |
push @attrs, $_ foreach grep { ! $a->{$_} } map { $_->name } @required; |
76 |
warn "# attrs = ",dump( @attrs ); |
warn "# attrs = ",dump( @attrs ); |
77 |
|
|
78 |
foreach my $name ( @attrs ) { |
foreach my $name ( grep { ! $class->meta->get_attribute($_)->is_lazy } @attrs ) { |
79 |
my $type = $name =~ m/^pass/ ? 'password' : 'text'; |
my $type = $name =~ m/^pass/ ? 'password' : 'text'; |
80 |
my $value = ''; |
my $value = ''; |
81 |
my $value_html = ''; |
my $value_html = ''; |