86 |
return (undef,$self->params) if wantarray; |
return (undef,$self->params) if wantarray; |
87 |
return; |
return; |
88 |
} else { |
} else { |
89 |
warn $self->class, " required params ", dump( @required ) if $self->debug; |
warn $self->class, " required params ", map { $_->dump(2) } @required if $self->debug; |
90 |
} |
} |
91 |
|
|
92 |
my $class = $self->class; |
my $class = $self->class; |
142 |
# warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 ); |
# warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 ); |
143 |
$form .= qq|<label for="$name"$label_title>$label</label>| . $value_html; |
$form .= qq|<label for="$name"$label_title>$label</label>| . $value_html; |
144 |
} |
} |
145 |
my $html = join("\n", |
my $html = qq|<h1>$class params</h1><form method="post">$form<input type="submit" value="Run $class"></form>|; |
146 |
qq|<h1>$class params</h1><form method="post">$form<input type="submit" value="Run $class"></form>|, |
push @{ $self->status }, { 'Params' => |
147 |
qq|<span class="frey-popdown">config<span><code>| . dump( $config_params ) . qq|</span></span>|, |
{ |
148 |
qq|<span class="frey-popdown">default<span><code>| . dump( $default ) . qq|</span></span>|, |
'Config' => $config_params, |
149 |
) if $form; |
'Default' => $default |
150 |
|
}, |
151 |
|
}; |
152 |
|
|
153 |
return ($html,$default) if wantarray; |
return ($html,$default) if wantarray; |
154 |
return $html; |
return $html; |