I have a problem in writing a &#39;param&#39; in J::A::CreateXXX.<br><br>The action param below works in normal actions(MyWeblog::Action::XXXX) but causes an error in MyWeblog::Action::CreateXXX.<br>
  
  

Error in 
C:\Perl\site\lib\Scalar\Defer.pm line 41<br>Undefined subroutine &amp;main:: called at C:/Perl/site/lib/Scalar/Defer.pm line 41.<br><br>&nbsp;&nbsp;&nbsp; param mother =&gt;<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; render as &#39;select&#39;,<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; label is &#39;Mother Group&#39;,
<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; valid_values are defer {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $collection = MyWeblog::Model::GroupCollection-&gt;new;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $collection-&gt;unlimit;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my @results = { display =&gt; &#39;Top Group&#39;, value =&gt; 0 };
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; while ( my $record = $collection-&gt;next ) {<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; push @results, {<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; display =&gt; $record-&gt;group_id,<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; value&nbsp;&nbsp; =&gt; $record-&gt;id,<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; };
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return \@results;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; };<br><br clear="all">How do I override params like this in&nbsp; MyWeblog::Action::CreateXXX?<br>-- <br>Best,<br>In-Suk Joung