82 |
my ( $self ) = @_; |
my ( $self ) = @_; |
83 |
my @required = $self->required; |
my @required = $self->required; |
84 |
if ( ! @required ) { |
if ( ! @required ) { |
85 |
warn "all params available ", dump( $self->params ), " not creating form"; |
warn "all params available ", dump( $self->params ), " not creating form" if $self->debug; |
86 |
return (undef,$self->params) if wantarray; |
return (undef,$self->params) if wantarray; |
87 |
return; |
return; |
88 |
} else { |
} else { |
102 |
my $form; |
my $form; |
103 |
|
|
104 |
foreach my $name ( grep { ! $class->meta->get_attribute($_)->is_lazy } $self->attributes ) { |
foreach my $name ( grep { ! $class->meta->get_attribute($_)->is_lazy } $self->attributes ) { |
105 |
my $attr_type; |
my $attr_type = ''; |
106 |
my $type = $name =~ m/^pass/ ? 'password' : 'text'; |
my $type = $name =~ m/^pass/ ? 'password' : 'text'; |
107 |
my $label = $name; |
my $label = $name; |
108 |
my $value = ''; |
my $value = ''; |