Plugin::FillInForm

の finalize

sub finalize {
    my $c = shift;
    if ( $c->isa('Catalyst::Plugin::FormValidator') ) {
        $c->fillform
          if $c->form->has_missing
          || $c->form->has_invalid
          || $c->stash->{error};
    }
    return $c->NEXT::finalize(@_);
}

$c->stash->{error} があると問答無用で fillform る。あー何この余計なお世話機能。

小一時間はまったよ。。

by typester / at 2006-02-10T14:31:00 / perl · catalyst / Comments(0)