146 |
$form .= qq|<label for="$name"$label_title>$label</label>| . $value_html; |
$form .= qq|<label for="$name"$label_title>$label</label>| . $value_html; |
147 |
} |
} |
148 |
my $html = qq|<h1>$class params</h1><form method="post">$form<input type="submit" value="Run $class"></form>|; |
my $html = qq|<h1>$class params</h1><form method="post">$form<input type="submit" value="Run $class"></form>|; |
149 |
push @{ $self->status }, { |
$self->add_status({ |
150 |
$self->editor( $self->class ) => { |
$self->editor( $self->class ) => { |
151 |
params => $self->params, |
params => $self->params, |
152 |
config_params => $config_params, |
config_params => $config_params, |
153 |
default => $default |
default => $default |
154 |
}, |
}, |
155 |
}; |
}); |
156 |
|
|
157 |
return ($html,$default) if wantarray; |
return ($html,$default) if wantarray; |
158 |
return $html; |
return $html; |