85 |
|
|
86 |
if ( my $form = $self->params_form ) { |
if ( my $form = $self->params_form ) { |
87 |
$html = $self->html_page( body => $form ); |
$html = $self->html_page( body => $form ); |
88 |
warn "got required params form for $class ", $self->run, " format: ", $self->format; |
warn "missing required params form for $class ", $self->run, " format: ", $self->format; |
89 |
} else { |
} else { |
90 |
|
|
91 |
$self->usage->{ $class }++; |
$self->usage->{ $class }++; |
161 |
foreach ( $o->status ) { |
foreach ( $o->status ) { |
162 |
next if $current_status->{$_}++; |
next if $current_status->{$_}++; |
163 |
$self->add_status( $_ ); |
$self->add_status( $_ ); |
164 |
warn "# run add_status: ", $self->dump( $_ ); |
# warn "# run add_status: ", $self->dump( $_ ); # FIXME |
165 |
} |
} |
166 |
} |
} |
167 |
|
|