52 |
} |
} |
53 |
|
|
54 |
my ( $html, $default ) = Frey::Action->new( class => $class, params => $params )->params_form; |
my ( $html, $default ) = Frey::Action->new( class => $class, params => $params )->params_form; |
55 |
warn "$class need more params than ",dump( $default ) if $html; # FIXME replace with query |
warn "$class need more params than ",dump( $default ) if $html && $self->debug; # FIXME replace with query |
56 |
|
|
57 |
my $code = '$result = ' . $class . '->new' . dump( %$default ) . '->' . $method . '();'; |
my $code = '$result = ' . $class . '->new' . dump( %$default ) . '->' . $method . '();'; |
58 |
warn "# pipe $part -> $code"; |
warn "# pipe $part -> $code" if $self->debug; |
59 |
my $result; |
my $result; |
60 |
eval $code; |
eval $code; |
61 |
die $@ if $@; |
die $@ if $@; |