--- trunk/lib/Frey/Action.pm 2008/11/18 00:30:29 389 +++ trunk/lib/Frey/Action.pm 2008/11/18 00:54:10 390 @@ -86,7 +86,7 @@ return (undef,$self->params) if wantarray; return; } else { - warn $self->class, " required params ", dump( @required ) if $self->debug; + warn $self->class, " required params ", map { $_->dump(2) } @required if $self->debug; } my $class = $self->class; @@ -142,11 +142,13 @@ # warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 ); $form .= qq|| . $value_html; } - my $html = join("\n", - qq|

$class params

$form
|, - qq|config| . dump( $config_params ) . qq||, - qq|default| . dump( $default ) . qq||, - ) if $form; + my $html = qq|

$class params

$form
|; + push @{ $self->status }, { 'Params' => + { + 'Config' => $config_params, + 'Default' => $default + }, + }; return ($html,$default) if wantarray; return $html;