#$r->template_args->{classmetadata}{search_cgi} = $self->search_inputs;
}
-sub view : Exported {
- my ($self, $r, $obj) = @_;
- $self->_croak( "Object method only") unless $obj;
-
- if ($r->params->{submit} eq 'drink') {
- $r->params->{drinker} = $self;
- my ($pint, $errs) = $self->related_class($r, 'pints')->create_from_cgi($r);
- $r->template_args->{errors} = $errs if $errs;
- }
-
- my %cgi = $self->to_cgi('pints');
- $cgi{pints}{drinker} = $obj->to_field(drinker => 'link_hidden', {r => $r});
- $r->template_args->{classmetadata}{cgi} = \%cgi ;
-}